Benutzerhandbuch 

Programmierung 
Stand: 1.7.87 



© GMD 1987 

Alio Rechte vorbehatten. Inabeaondere ist die Uberfuhrung in 
maschinenlesbare Form sowie das Speichern in Informations- 
aystemen, auch auazugaweiae, nur mit achriftlicher Einwilligung 
der QMD gestattet. 

No part of this publication may be reproduced, stored in a 
retrieval system or transmitted, in any form or by any means, 
electronic, mechanical, photocopying, recording, or otherwise, 
without the prior permission of the QMD. 



Autoren: Irmgard Ley 

Werner Metterhausen u.a. 



Dieser Text wurde mit der EUMEL - Textverarbeitung erstellt und aufbereitet und mit 
dem AGFA Laserdrucksystem P400 gedruckt. 



Qeseilschaft fOr Mathematik urKi Datenverarbeitung mbH 

Bereich/Lcx:ation Birlinghoven 
SchloB Birlinghoven Teiefon (02241) 14- 1 

Postfach 1240 Telex 8 89 469 gmd d 

D-5205 Sankt Augustin 1 Telefax (02241) 14 28 89 

Teletex 2627- 224135 «=GMDW 
Bikjschirmtext *43900il^ 



Inhalt 



TEIL 1 : Einleitung 



1.1 Allgemeines uber EUMEL 1 

1 .2 Struktur des Betriebssystems EUMEL 2 

1.3 Eigenschaften des Betriebssystems 4 
Multi - Tasking - /Multi - User - Betrieb 5 
ProzeBkommunikation urxJ Netzwerkfdhigkeit 6 
Erweiterbarkeit 6 
Virtuelle Speicherverwaltung 7 
Datensicherheit 8 

1.4 Wichtige Begriffe 9 

1.5 Die Notation in diesem Buch 10 

1.6 Die Funktionstasten des EUMEL - Systems 11 

1.7 Eine Beispielsitzung 12 

TEIL 2 : ELAN 

2.1 Besondere Eigenschaften von ELAN 1 

2.2 Lexikalische Elemente 2 

2.2.1 SchlUsselwOrter 2 

2.2.2 Bezeichner 3 

2.2.3 Sonderzeichen 4 

2.2.4 Kommentare 5 

2.3 Datenobjekte 6 

2.3.1 Elementare Datentypen 6 

2.3.1.1 Denoter fur elementare Datentypen 7 
INT-Denoter: 7 
REAL - Denoter: 8 
TEXT -Denoter: 9 
BCX)L- Denoter: 9 

2.3.1.2 LET-Konstrukt fOr Denoter 10 

2.3.2 Zugriffsrecht 11 

2.3.3 Deklaration 11 

2.3.4 Initialisierung 12 



GMD 



I - 1 



EUMEL - Benutzerhandbuch 



2.4 Programmeinheitian 13 

2.4.1 Elementare Programmeinheiten 14 

2.4.1.1 Ausdruck 14 
Operatoren 14 
PrioritAt von Operatoren 16 

2.4.1.2 Zuweisung 18 

2.4.1.3 Refinementanwendung 19 

2.4.1.4 Prozeduraufruf 20 

2.4.2 Zusammengesetzte Programmeinheiten 22 

2.4.2.1 Folge 22 

2.4.2.2 Abfrage 23 

2.4.2.3 Auswahl 26 

2.4.2.4 Wertliefemde Abfrage 

und wertliefemde Auswahl 27 

2.4.2.5 Wiederholung 27 
Abfragekette 25 
Endlosschleife 28 
Abweisende Schleife 29 
Nicht abweisende Schleife 29 
ZAhlschleife 30 

2.4.3 Abstrahierende Programmeinheiten 32 

2.4.3.1 Refinementvereinbarung 32 
Vorteile der Refinementanwendung 33 
Wertliefemde Refinements 34 

2.4.3.2 Prozedurvereinbarung 35 

2.4.3.3 Operatorvereinbarung 41 
Verwerxjung von Prozeduren 35 
Prozeduren mit Parametem 38 
Prozeduren als Parameter 39 
Wertliefemde Prozeduren 40 
Vereint>arung eines monadischen Operators 42 
Vereinbarung eines dyadischen Operators 42 



I - 2 



GMD 



Inhalt 



2.4.3.4 Paketvereinbarung 43 

Spracherweiterung 44 
Schutz vor fehlerhaftem Zugriff 

auf Datenobjekte 45 

Realisierung von abstrakten Datentypen 47 

2.4.4 Terminatoren fur Refinements, 

Prozeduren und Operatoren 48 

2.4.5 Qenerizitftt von Prozeduren und Operatoren 49 
Prioritat von generischen Operatoren 49 

2.4.6 Rekursive Prozeduren urKj Operatoren 50 

2.5 Programmstruktur 52 

2.6 Zusammengesetzte Datentypen 56 

2.6.1 Reihung 56 

2.6.2 Struktur 61 

2.6.3 LET - Konstrukt fur 

zuscunmengesetzte Datentypen 64 

2.6.4 Denoter fur zusamniengesetzte 

Datentypen (Konstruktor) 65 

2.7 Abstrakte Datentypen 67 

2.7.1 Definition neuer Datentypen 67 

2.7.2 Konkretisierung 69 

2.7.3 Denoter fur at>strakte Datentypen (Konstruktor) 70 

2.8 Dateien 73 

2.8.1 Datentypen FILE und DIRFILE 73 
FILE: 73 
DIRFILE: 73 

2.8.2 Deklaration und Assoziierung 74 
input: 75 
output: 75 
modify: 75 

2.9 Abstrakte Datentypen im EUMEL- System 77 

2.9.1 DatentypTASK 77 

2.9.2 Datentyp THESAURUS 79 

2.9.3 Datenrftume 81 

2.9.3.1 Datentyp DATASPACE 82 

2.9.3.2 BOUND -Objekte 83 
Hftufige Fehler bei der Benutzung von DatenrAume 85 

2.9.3.3 Definitk3n neuer Dateitypen 88 

2.9.4 Datentyp INITFLAG 91 



QMD I - 3 



EUMEL - Benutzerhandbuch 



TEIL 3 : Der Editor 



3. 1 Ein - und Ausschaiten des Editors 1 

3.2 Die Funktionstasten 3 

3.3 Die Wirkung der Funktionstasten 4 

3.4 ESC Kommandos 1 1 
Operationen auf Markierungen 15 
Zeichen schreiben 16 
Kommando auf Taste legen 16 
Vorbelegte Tasten 17 
Der Lernmodus 17 

3.5 Positionieren, Suchen. Ersetzen 

im Komnf)andodialog 21 

Weitere Hilfen 23 



TEIL 4 : Kommandosprache 

4. 1 Supervisor 2 

4.2 Monitor 6 

4.2.1 Hiifsprozeduren 8 
Inforniationsprozeduren 1 1 

4.2.2 Thesaurus 16 

4.2.3 Tasks 21 

4.2.4 Handhabung von Dateien 26 

4.2.5 Editor - Prozeduren 29 

4.2.6 Dateitransfer 33 

4.2.7 Passwortschutz 39 

4.2.8 Das Archiv 44 
Fehlermekjungen des Archivs 52 



I - 4 



QMD 



Inhalt 



TEIL 5 : Programmierung 



5. 1 Der ELAN - Compiler 1 
5.1.1 Fehlermeldungen des ELAN - Compilers 5 

5.2 Standardtypen 7 

5.2.1 Bool 7 

5.2.2 Integer - Arithmetik 9 

5.2.3 Real - Arithmetik 16 

5.2.4 Text 26 
Der EUMEL-Zeichensatz 29 

5.3.1 Assoziierung 41 

5.3.2 Informationsprozeduren 43 

5.3.3 Betriebsrichtung INPUT 44 

5.3.4 Betriebsrichtung OUTPUT 46 

5.3.5 Betriebsrichtung MODIFY 48 

5.3.6 FILE -Ausschnitte 51 

5.4 Suchen und Ersetzen in Textdateien 53 

5.4.1 Aufbau von Textmustem 54 

5.4.2 Suche nach Textmustern 57 

5.4.3 Treffer registrieren 59 

5.4.4 Treffer herausnehmen 60 

5.4.5 Andern in Dateien 61 

5.4.6 Editor - Prozeduren 62 

5.4.7 Sortierung von Textdateien 64 

5.4.8 Prozeduren auf Datenrdumen 65 

5.5 Eingakw/Ausgabe 68 

5.5.1 E/A auf Bildschirm 69 

5.5.1.1 Eingabesteuerzeichen 69 

5.5.1.2 Ausgabesteuerzeichen 70 

5.5.1.3 Positionierung 71 
Grundlegende Prozeduren 72 
Umleitt3are Eingabeprozeduren 73 
Grundlegende Prozeduren 75 
Umleitbare Ausgabeprozeduren 77 

5.5.1.4 Eingabe 72 

5.5.1.5 Ausgabe 75 

5.5.1.6 Kontrolle 79 

5.5.2 Zeitmessung 80 

5.6 Scanner 83 
Scanner - Kommarxlos 85 



GMD 



I - 5 



EUMEL - Benutzerhandbuch 



TEIL 6 : Das Archiv 'std zusatz' 



6.1 Erweiterungen urn Mathematische Operationen 2 

6.1.1 COMPLEX 2 

6.1.2 LONGINT 7 

6.1.3 VECTOR 16 

6.1.4 MATRIX 24 

6.2 Programmanalyse 36 
reporter - KommarKJos 39 
Referenoer 41 
referenoer - Kommandos 42 

6.3 Rechnen im Editor 43 
ArtseitswBise 43 
TeCal Prozeduren 44 



Anhang : ELAN - Syntaxdiagramme 
INDEX 



I - 6 



GMD 



TEIL 1 : Einleitung 



TEIL 1 : Einleitung 



1 .1 Ailgemeines uber EUIMEL 



Dieses Buch bietet eine Obersicht Qber die Standardprozeduren des Betriebssystem 
EUMEL. Es bietet damit sowohi Hilfestellung fur die Benutzung der standardmABig 
vorhcuKlenen Kommandos als auch fOr die Programmierung, also die Erweiterung 
dieses Kommandovorrats. Es ist jedoch kein Lehrbuch der ProgrammierungI 

In den ersten drel Kapitein dieses Programmierhandbuches warden einige Qrund- 
begriffe des Systems, die grundlegende Programmiersprache (ELAN) und der 
EUMEL -Editor eridutert. 

Das vierte Kapitel bietet eine Obersicht Qber diejenigen Prozeduren und Operatoren, 
die eher der *Job- Control -Language' zugerechnet werden kOnnen, also hAufig im 
Kommandodialog benutzt vverden. 

Im fOnften Teil sind diejenigen Operationen beschrieben, die meistenteils fur die 
Programmierung benutzt werden. (Compiler, Operationen auf den elementaren Daten- 
typen, Dateien, Ein- und Ausgabe usw.). 

Diese Trennung ist jedoch recht willkOrlich, es ist ja gerade eine der wichtigen Eigen- 
schaftan dieses Betriebssystems, daB es keine Trennung zwischen der Kommando- 
sprache des Betriet>ssystems und Programmmiersprache fUr das System gibt. Jedes 
Systemkommando ist Aufruf einer ELAN Prozedur, jede neue Prozedur stellt eine 
Erweiterung des Kommandovorrats des Systems dar. 

Aus QrOnden der Obersichtlichkeit der Zusammenstellung ist dieses Buch nicht frei 
von VorwArtsverweisenl 
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1 .2 Struktur des Betriebssystems EUMEL 



Grundlegend fur das Verst&ndnis des Betriebssystems EUMEL ist der Begriff der 
Task. Eine Task kann als theoretisch unendliche Wiederholung eines Systempro 
gramms der Form: 

'nimm Kommando entgegen' 
'verarbeite Kommando' 

aufgefaBt werden. Einige Tasks existieren bereits ais Grurxlstock des Systems, 
weitere werden von Benutzern des Systems erschaffen und dienen als persOnliche 
Arbeitsumgebung fur den 'EigentDmer*. Eine Task kann als benutzereigener, unab- 
hdngiger Computer im Computer betrachtet werden. denn sie kann Kommandos 
entgegennehmen und ausfuhren und Daten verwalten und aufbewahren. 

Eine Task k€mn neu erzeugt werden, cm einen Bildschirm gekoppelt werden und 
beendet werden. 

Das Tasksystem ist in einer baumartigen Struktur angeordnet. AuBer der Wurzel 'UR' 
hat jede Task einen Vorgdnger ('Vater-Task') und mOglicherweise Nachfolger 
('Sohn- Tasks'). 

Task -Organisation 

SUPERVISOR 

SYSUR 

ARCHIVE 
configurator 
OPERATOR 
shutup 

UR 

PUBLIC 

Benutzertaskl 
Benutzertask2 

Benutzertask3 
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Jeder Benutzer arbeitet innerhalb eines EUMEL - Systems, indem er eine Task an 
sein Terminal koppelt und dort Programme aufruft. 

Dateien sind grundsdtzlich Eigentum einer Task. Es ist grundlegend fur das Verstdnd- 
nis des Betriebssystems EUMEL, die Beziehung zwischen Tasks und Dateien zu 
erkennen. 

Eine Task ist ein ProzeB, der gegebenenfalls Dateien t)esitzt. Dateien kdnnen nur in 
einer Task existieren. Um eine Datei einer anderen Task zur Verfugung zu stellen, 
wird eine Kopie der Datei an die andere Task geschickt, die sendende Task ist da- 
nach Eigentumer des 'Originals', die empfangende Task Eigentumer der 'Kopie'. 

Soil eine Hierarchie von Dateien aufgebaut warden, so ist sie uber eir^e Hierarchie 
von Tasks zu realisieren, da in einer Task alle Dateien gleichberechtigt sind. 

Bis zu dieser Stelle war stets von Dateien die Rede. Dateien sind jedoch ein Spezial- 
fall der grundlegenderen Struktur des Datenraumes. 

Ein Datenraum ist ein allgemeiner Datenbehditer. Ein Datenraum kann beliebige 
Daten aufnehmen und eriaubt direkten Zugriff auf diese Daten. Die Struktur der Daten 
im Datenraum unterschekJet sich nicht von der Struktur der Programmdaten. Der 
'innere Datentyp' eines Datenraums wird vom Programmierer festgelegt. 

VorgeprAgt vom System gibt es Textdateien, jeder andere Datentyp muB vom Pro- 
grammierer geprAgt werden, um so Dateien erzeugen zu kOnnen, die Objekte eben 
dieses neuen Typs enthalten. 
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1 .3 Eigenschaften des Betriebssystems 



Der erste Entwurf des Mikroprozessor - Betriebssystems EUMEL (Extendable multi 
User Microprozessor ELAN system) entstand 1979 mit dem Anspruch, auf Mikrocom- 
putern den Anwendern Hilfsmittel und Unterstutzungen zu bieten, wie sie sonst nur 
auf Gro6rechnern zur Verfugung gestellt werden. 

Aspekte, die EUMEL von anderen Betriebssystemen fur Mikrocomputer unterschekjen. 
sind: 

- Hardwareunabhdngigkeit 

- Muititaskingkonzept 
~ Multiuserbetrieb 

- Erweiterbarkeit 

- virtuelle Speicherverwaltung 

- Datensicherheit 



Das EUMEL -Schichtenmodeil 



Die HardwareunabhAngigkeit des Betriebssystems EUMEL begrundet sich in seinem 
Aufbau aus Schichten (sogenannten virtueilen Maschinen). die einen klar definierten 
Leistungsumfang haben. ^ 




1 - 4 



QMD 



TEIL 1 : Einleitung 



Jede Schicht erwartet und erhAlt von ihren Nachbarn wohldefinierte Eingaben und gibt 
wohidefinierte Ausgaben weiter. Anderungen in einer Schicht mUssen also in den 
angrenzenden Schichten beachtet werden, aber nicht in alien Teilen des Systems. 

Urn EUMEL auf Rechner mit einem neuen Prozessortyp zu portieren. wird zundchst 
eine auf die Eigenheiten des Prozessors abgestimmte EUMELO-Maschine entworfen 
und eine Hardwareanpassung (SHard : Software/Hardware - Interface) fur einen 
Rechner mit diesem Prozessor hergestellt. Alle hOheren Schichten des Systems 
bleiben unberOhrt. Weitere mit diesem Prozessortyp ausgestattete Rechner kOnnen mit 
EUMEL betrieben werden, indem ein SHard fur dieses Rechnermodell geschrieben 
wird. 

Aus Benutzersicht ist wichtig, daB dadurch jegiiche Software, die auf irgendeinem 
Rechner unter EUMEL verfQgbar ist, auf jedem anderen Rechner, ftir den eine 
EUMEL Portierung existiert, laufffthig ist und gleiches Verhalten zeigt. Eine Vemet- 
zung beliebiger Rechner, auf die EUMEL portiert ist, ist problemlos mOglich. 

Desweiteren ist fur den Benutzer des Systems von Bedeutung, daB er von der hard- 
warenahen Schicht entfemt ist. Weder die Programmiersprache noch irgendwelche 
speziellen Systemfunktionen gewdhren direkten Zugriff auf den Speicher Oder Regi- 
sterinhalte. Diese Tatsache hat weitreichende Folgen in Hinsicht auf Datenschutz und 
Systemsicherheit. 



Multi - Tasking - /Multi - User - Betrieb 

Wie einleitend dargestelit, besteht ein EUMEL -System aus diversen Tasks. Durch 
eine Aufteilung der Prozessorzeit in Zeitscheiben ist eine (quasi) parallele Bedienung 
mehrerer Tasks mOglich. 

Die multi- user -FAhigkeit des Betriebssystems wird durch den AnschluB mehrerer 
BildschirmarbeitsplAtze (Terminals) an V.24 Schnittstellen des Rechners erreicht. 
Dabei wird jeder Schnittstelle eine sogenannte Kanalnummer zugeordnet. Jeder 
Benutzer kann seine Task dann an einen Kanal (■ Terminal) koppein und an dtesem 
Terminal gleichzeitig mit anderen Benutzem arbeiten. 
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ProzeBkommunikation und Netzwerkfahigkeit 

Grundlage der Kommunikation ist die 'Manager - Eigenschaft' von Tasks. Eine Task 
ist 'Manager', wenn sie Auftrdge anderer Tasks annehmen und ausfuhren kann. 
Insbesondere kann ein Manager veranlaBt warden, eine an ihn geschickte Datei anzu- 
nehmen, bzw. eine ihm gehOrende Datei an die fordernde Task zu schicken. 

Derartige Kommunikationstinien verlaufen normalerweise in der Baumstruktur des 
Systems: z.B. ist die Task 'PUBLIC (vergl. Seite 2) grundsdtzlich Manager > Task. 
Eine unterhalb von PUBLIC liegende Task kann eine Datei an PUBLIC senden, bzw. 
von PUBLIC holen. 

Es ist auch mOgiich, eine Task fur den Zugriff beliebiger anderer Tasks zu Offnen und 
somit beliebige Kommunikationspfade aufzubauen. Prinzipiell ist damit auch schon der 
Aufbau eines Netzwerkes beschrieben, denn sendende und empfangende Tasks 
kOnnen sich auf verschiedenen Rechnern befinden. 

Durch selbst erstellte Programme kann der Eigentumer einer 'Manager - Task' die 
Reaktion dieser Task auf einen Auftrag von auBen bestimmen. Beispieisweise kann 
ein Mariager derart programmiert warden, daB er nur Dateien empfftngt und ausdruckt, 
aber niemals Dateien verschickt (Spool ~ Task). 



Erweiterbarkeit 

Die Programmierspracfie ELAN ist im EUMEL -System gieichzeitig Programmier- 
und System - Kommandosprache (JCL), denn jedes Kommando ist Aufruf einer 
ELAN - Prozedur und jede vom Benutzer geschriebene ELAN - Prozedur erweitert 
den Kommandovorrat des Systems. 

Da alle EUMEL - Werkzeuge (einschlieBlich Editor) selbst ELAN - Programme sind. 
kann das System vom Benutzer selbst durch Hinzufugen eigener ELAN - Programme 
Oder Programmpakete beliebig erweitert werden. Dabei kOnnen die bereits implemen- 
tierten Systemteile (z.B. die Fenstertechnik des Editors) genutzt werden. 

Ein Benutzer muB, um alle MOglichkeiten vom EUMEL zu nutzen, nur eine Sprache 
lernen und nicht - wie t3ei anderen Betriebssystemen - zwei unterschiedliche, eine 
Kommando- und eine Programmiersprache. 
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ELAN selbst ist eine PASCAL - dhnliche Programmiersprache, die mit Hilfe der 
schrittweisen Verfeinerung (Refinement - Konzept) die Top - Down - Programmierung 
unterstQtzt. Das Paketkonzept, das der Modularisierung dient, und die freie Wahl von 
Bezeichnernamen sind Voraussetzung fur ubersichtliche und effiziente Programmie- 
rung. 



Virtuelle Speicherverwaltung 

Im EUMEL- System wird der Hauptspeicherplatz nach dem Demand- Paging -Prinzip 
verwaltet. Daten und Programme werden dazu in Seiten von 512 Byte aufgeteilt. Nur 
diejenigen Seiten, die wirklich benOtigt werden. werden vom Hintergrundspeicher 
(Platte) in den Hauptspeicher geholt. Damit ist fur den Benutzer bezOglich seiner 
Programm- bzw. DateigrOBen nicht mehr der Hauptspeicher, sondern die Hinter- 
grundkapazitdt von Bedeutung. Die Durchsatzgeschwindigkeit (Performance) ist 
abhdngig von der Gr66e des RAM - Speichers und der Zugriffsgeschwindigkeit des 
Hintergrundmediums. Das Demand - Paging - Verfahren ist Grundlage fur den 
Multi - User - Betrieb, wobei der Hauptspeicherplatz m6glichst effizient zu nutzen und 
kein Benutzer zu benachteiligen ist. 

Beim Duplizieren eines Datenraumes wird im EUMEL -System lediglich eine logische, 
keine physische Kopie erzeugt. Zwei Seiten (zweier Datenrdume) heiBen dann gekop- 
pelt (geshared), wenn bekje Seiten physisch demselben Block zugeordnet sind. Erst 
bei einem Schreibzugriff werden die Seiten entkoppelt (entshared) und tatsAchlich 
physisch kopiert. Daher der Name 'copy -on -write". 

Dieses Prinzip wird natQrIich auch systemintern angewandt. Beispielsweise erbt eine 
Sohn-Task den Kommandovorrat der Vater-Task, indem der Standard - Datenraum, 
der die vorubersetzten ELAN - Prozeduren enthdit, in der beschriebenen Weise kopiert 
wird. Prozeduren, die spAter hinzugefugt werden, werden naturlich nicht vererbt, da 
die Standard - Datenrdume dann entkoppelt werden. 
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Datensicherheit 

StOrungen (inklusive Stromausfail) werden systemseitig durch eine autoniatische 
Fixpoint- Rerun -Logic aufgefcmgen, indem zum Zeitpunkt eines Fixpunkts der Inhalt 
des RAM Speichers. der seit dem letzten Fixpunkt ver&ndert wurde auf den 
permanenten Speicher (Festplatte) geschrieben wird. Somit kann nach einer StOrung 
immer auf den Systemzustand des letzten Fixpunktes aufgesetzt werden und die 
Datenverluste halten sich in ertrAglichen Grenzen. 

Der Zeitraum zwischen zwei Fixpunkten t)etrAgt standardmABig 15 Minuten, kann aber 
vom Benutzer anders eingesteitt werden. 

Auch bei dieser Sicherung wird das Copy - on - write - Prinzip angewendet. so daB 
Piatz - und Zeitaufwand gering sind und den nornialen Ablauf nicht stOren. 
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1.4 Wichtige Begriffe 



- archM. Spezielle Task zur Verwaltung des Diskettenlaufwerks. Da fur die 
Idngerfristige Datenhaitung und zur zusdtzlichen Datensicherung Dateien auf 
Disketten geschrieben warden, besitzt das EUMEL- System fur diese Aufgabe 
eine besondere Task, die die Bedienung vereinfacht und exklusiven Zugriff auf das 
Laufwerk garantiert. 

- configurator. Besondere Task im Systemzweig des EUMEL - Systems. In 
dieser Task ist die Konfiguration von Kandlen mdglich, d.h. Kanal und 
angeschlossenenes Gerdt werden aufeinander abgestimmt. 

- editor. Programm zur Dateibearbeitung am Bikjschirm. Das Programm wird 
durch das ( Monitor- ) Kommando 'edit' und die Eingabe des Namens der ge- 
wUnschten Datei ais Parameter gestartet. 

Da ein Bikjschirm normalerweise auf 80 Zeichen Zeilenbreite und 24 Zeilen be- 
schrftnkt ist, kann der Editor als Fenster betrachtet werden, das Ober die mOgli- 
cherweise weitaus grOBere Datei bewegt wird und durch das der betrachtete Aus- 
schnitt der Datei bearbeitet werden kann. 

- nnanagBr task. Task, die AuftrAge von anderen Tasks entgegennehmen und 
ausfOhren kann . Beispieisweise ist die Verwaltung von Dateien, die mehreren 
Benutzern (■ anderen Tasks) zugAnglich sein sollen, eine typische Aufgabe fur 
einen Manager. 

- Monitor. Der Empfftnger von Kommandos innerhalb einer Task ist der Monitor. Der 
Monitor ist sichtbar durch eine Zeile, in der 'gib kommando' steht. In diese Zeile 
werden Kommandos und erforderliche Parameter eingegeben. 

- Supervisor. Spezielle Task zur Oberwachung eines EUMEL- Systems. Ein 
Benutzer kann durch die Supervisor - Kommandos Leistungen von dieser Task 
fordem: neue Task einrichten. Task wiederaufnehmen und diverse Informationen. 

- Taslc. Beliebig langlebiger ProzeB im EUMEL - System, der die Arbeits- 
umgebung fOr Benutzer biklet. Jede Task besitzt einen Standard - Datenraum, der 
Code und Compilertabeilen der Task enthdit und kann weitere Datenrdume 
(Dateien) besitzen. 
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1 .5 Die Notation in diesem Buch 



Beachten Sie bitte folgende Regetn der Aufschreibung: 

- Funktionstasten werden ebenso wie besondere Tastenkombinationen explizit als 
Tasten dargestellt: 

Oder im Text: 

- Alles, was Sie am Biklschirm Ihres Rechners schreiben Oder lesen soilen, ist in 
Textbereiche, die einen Bikjschirm darsteilen, eingefaBt. 

Beispiel: 



9 lb kouMMindo : 

edit (*«ein fird^remm'*) 



- innerhaib des Handbuchs sind in der Aufschreibung die Konventionen der Pro- 
grammiersprache ELAN berucksichtigt. Dabei sind folgende Besonderheiten zu 
beachten: 

1) Kommandos werden grundsdtziich klein geschrieben. 

2) Dateinanien u.d. sind Textdenoter und werden somit in Kiammern und Anfuh- 
rungsstriche gesetzt. In diesem Buch steht an den Stellen, wo ein Dateiname 
auftaucht 'dateiname' ; den Namen, den Sie tatsdchlich verwenden, kdnnen 
Sie frei wfthlen. 

3) Falls besondere Begriffe Oder Beispiele innerhaib eines normalen Textes 
auftreten, werden sie in einfache AnfOhrungsstriche gesetzt. 
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1.6 Die Funktionstasten des EUMEL - Systems 



Die Lage der EUMEL - Funktionstasten entnehmen Sie bitte der speziellen Instalia- 
tionsanleitung zu dem von Ihnen twnutzten Ger&t. 



EJElBi 


|| Positionlerungstasten 




Umschalttaste 




Eingatw - / Absatztaste 




Kommandotaste 




Supervisortaste 




VerstArkertaste 


1 wecpr 


LOschtaste 




Einfugetaste 


TA&j 


Tabulatoitaste 




Markiertaste 




Stoptaste 




Weitertaste 



Weitere Informationen hierzu finden Sie in der Installationsanleitung zu dem von Ihnen 
benutzten Rechner Oder Terminal. 
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1.7 Eine Beispielsitzung 



Im Folgenden wird eine Beispielsitzung skizziert, in der ein ELAN - Programm erstellt 
und getestet wird. 

■I SUPERVISOR aufrufen 



£OMEL Version l.E/M 



9ib supervisor komAs^do: 



ESC ? — > help 

ESC b -w> tJ«»in<"'') ESC h halt 

CSC c — > 60rttinue(^**> ESC s — > storage info 

ESC ^ break ESC t task info 



Durch das KommcuKlo 'begin ("meine erste Task")', welches durch abgeschlos- 
sen werden muB, wird eine Task mit dem Namen 'meine erste Task' im Benutzer- 
zweig, also unterhalb von 'PUBLIC angelegt. Wtirde diese Task bereits existieren, so 
kOnnten Sie sie mit 'continue ("meine erste Task")' an das Terminal holen. 
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gib kooniiando : 



In der Task erOffnen Sie eine Datei mit dem Kommando 'edit ("dateiname")'. 



gib kommando : 

edit (**aiein «r&tes Ptdgraflwn**) 
''mein erstcis Prograiwm*' neu einrichten (j/n) ? 



Fails diese Datei neu ist. erfolgt eine Kontrollfrage (zur Kontrolle der gewunschten 
Schreibwelse des Dateinamens), die Sie durch | ; bejahen. 
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In die noch leere Datei tippen Sie nun den Programmtext ein. 



i INT PROC Mt <INT GDN5T a, b>; 

ItiT VAI^ b kdp^id (b)^ a kdpi6 abd (a); 

VBHILE b kopi» <> 0 REPEAT 

IHT VAI{ r^st :3 a knpie MOD b kopi6; 

kople :^ b kopia; 
b ki^pie :w rast 
EMO REPEAT; 
a kopie 
EWD PROC qU 

REP 

:iie^ 2 zahjen ein; 

gib groesfttfiitn Qeneinfiaiimn teller aus 
mm no (^w^itertesten'*) PER. 

lies 2 zahlen ein: 

Una; put (*'2 ZaWen eiogebw;'*); 

IHX VAft a, 

get (fl); get <b). 

gib groefifiten ^ineineamaf^ teller aus: 

put ("der gr^ftte gemelnaam Teiler von'*); 

put (a); put {^und*); put (b>; put (♦*ist^); put ($gt {Ajb)); 
line. 



In dem Programmbeispiel wird ein Prozedur 'ggt' definiert. die den grOBten gemein- 
samen Teiler zweier Zahlen bestimmt. Die Prozedur soli fur verschiedene Beispiele 
getestet werden; dies geschieht in dem Hauptprogramm. das solange Zahlen einliest 
und den grOBten gemeinsamen Teiler ausgibt, bis der Benutzer auf die Frage 'weiter- 
testen (j/n) ?' mit antwortet. 

Haben Sie das Programm eingegeben, so kOnnen Sie die Bearbeitung dieser Pro- 
grammdatei durch Drucken der Tasten .WSG <! (nacheinander!) beenden. 
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glt> koinms^ndo : 



Urn Ihr Programm zu ubersetzen und auszufuhren, geben Sie das Kommando 
'run ("dateiname")'. 

Der Verlauf der Ubersetzung, die zwei Ldufe Qber das Programm erfordert, ist am 
zahler, der an der linken Seite des Bildschirms ausgegeben wird, zu erkennen. 

Werden beim Ubersetzen des Programms Fehler entdeckt, so werden diese im 'note- 
book' parallel zur Programmdatei gezeigt. In dem Belspielprogramm wurde ein 
Schreibfehler in Zeile 9 gemacht. 











ZeiXe I 


1 S 


■1HT>W)C UNT CONST a, b): 






INT VAfi b kople tt fibs (b), a kopi« a aba (a); 






WHILE b kopiB <> 0 REPEAT 






IHT vm re«t a ^«pi« HOD b kopxei 






d k^pie :s7 b kopie; 






b k^pie ii^ rfia^t 






im REPEAT; 












£ND PftDC gt; 






REP ^ 






8 ( K ) t el )()()k 


Zeile 1 


a i 


Zeile $ FEi^LER bei » gt « 






ist nicht der PRQC Name 







GMD 



1 - 16 



EUMEL - Benutzerhandbuch 



Diesen Fehler mussen Sie nun verbessern. 



Zeile 9 



im PkOC got (IHT COWST A, b)t 

IHJ VAR b kopie abs (b>^ a kople abs (a); 
WKILE b kopiB <> D f^EPCAT 

INT VAR rest ;= a kopie MD0 b kopie; 
^ kdpie :a b kople; 
b ki}pi« isi rest 
et^D ftEf>£AT; 
a kopia 
EHO mc ggtf P 

fi£fi 

26iU ^ f EHLCR b6l » gt « 

iat nicht der PTOC Name 



Haben Sie das Programm korrigiert, so kdnnen Sie die Datei durch Drucken der 
Tasten lESEIi (nacheinanderl) wieder verlassen. 



gib kommando i 



Nach Eingabe von MM wird das Programm erneut Qbersetzt. 
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2 2dhi6n >:i3l96t>6t)r P 



Das Programm war jetzt fehlerfrei. Nach der Obersetzung wurde die AusfQhrung 
gestartet. Nun kOnnen Beispiele getestet warden. 



2 ZatnlOT aingeben; 12S^ 250 

d^r ^rlldt^ g:6m6il^dM Toiler vdn 125 und ^25 idt 25 
weltfiTtMten (j/n) ? S 



Beantwortet man die Frags mit lUi, so wird die AusfQhrung des Programms beendet. 



9ib kiMHRamlo 



Urn die Arbeit in der Task zu beenden, geben Sie auch an dieser Stelle W&SM 
(nacheinanderl) ein. 

^4ach Verlassen der Tasic ist wiederum die EUMEL-Tapete auf dem Biidschirm. Jede 
weitere Aktlon wird wiederum von hier aus durch >^ begonnen. Insbesondere vor 
dem Ausschatten des QerAts muB nach WSK eine Task des priviliegierten System- 
zweigs (oft: 'shutup') mit i^BD> 1^- an das Terminal gekoppelt werden, in der das 
Kommando 'shutup' gegeben wird. 
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TEIL 2: ELAN 



2.1 Besondere Eigenschaften von ELAN 



Kerneigenschaften von ELAN sind das Paketkonzept und die Methode des 
Refinements. 

Paketkonzept 

ELAN bietet die MOglichkeit, neue Datentypen sowie Prozeduren und Operatoren auf 
diesen Datentypen zu definieren. Eine solche Definition von Algorithnien und Daten- 
typen kann zu einer logischen Einheit, einem Paket, zusammengefaBt warden. Pakete 
kOnnen in einer Task vorubersetzt werden und erweitern damit automatisch den 
Sprachumfang. 

Methode des Rofineinents: 

Die Methode des Refinements eriaubt das schrittweise Herleiten von Problem Idsungen 
von der jeweiis geeigneten Terminoiogie herunter zu den von ELAN standardmdBig 
angebotenen Spracheiementen. Durch diese Vorgehensweise wird in duBerst starkem 
MaSe ein strukturierter Programmentwurf gem^B dem Top- Down -Prinzip gefOrdert. 

Die Programmiersprache ELAN wird im EUMEL- System zu folgenden Zwecken 
eingesetzt: 

- Systemimplementationssprache 

- Kommandosprache 

- Anwenderprogrammiersprache 
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2.2 Lexikalische Elemente 



Unter lexikalischen Elementen einer Programmiersprache versteht man die Elemente, 
in denen ein Programm notiert wird. 

In ELAN sind dies: 

- SchlOsselwOrter 

- Bezeichner 

- Sonderzeichen 

- Kommentare 



2.2.1 Schlusselwdrter 



Einige WOrter haben in ELAN eine feste Bedeutung und kOnnen somit nicht frei 
gewdhlt werden. Solche WOrter werden im EUMEL -System in GroBbuchstat)en 
geschriekjen, Leerzeichen dOrfen nicht enthalten sein. 

Beispiele: 

VAR 
INT 
WHILE 

Wie spdter t)eschrieben wird. gibt es in ELAN auch die MOglichkeit, neue Schlussel- 
wdrter einzufOhren. 
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2.2.2 Bezeichner 



Bezeichner Oder Namen warden benutzt. urn Objekte in einem Programmtext zu 
benennen und zu kJentifizieren (z.B: Variablennamen, Prozedurnamen). 

Namen werden in ELAN folgendermaBen formuiiert: 

Das erste Zeichen eines Naniens muB immer ein Kleinbuchstabe sein. Danach durfen 
bis zu 254 Kleinbuchstaben. aber auch Ziffern folgen. Zur besseren Lesbarkeit kOnnen 
Leerzeichen in einem Namen erscheinen, die aber nicht zum Namen z&hien. Sonder- 
zeichen sind in Namen nicht eriaubt. 

Beispiele fOr korrekte Bezeichner: 

das ist ein langer name 
X koordinate 
nr 1 



Beispiele fUr falsche Bezeichner: 
x»l 

1 exemplar 
Nr 1 
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2.2.3 Sonderzeichen 



Sonderzeichen sind Zeichen, die weder Klein- Oder GroBbuchstaben. noch Ziffern 
sind. Sie werden in ELAN als Trennzeichen Oder als Operatoren benutzt. 

In ELAN gibt es folgende Trennungszeichen: 

- das Semikolon (';') trennt Anweisungen 

- der Doppelpunkt (':') trennt Definiertes und Definition 

- der Punkt (*.') wird als Endezeichen fur bestimmte Programmabschnitte, als Dezi- 
malpunkt und als Selektor - Zeichen fur Datenstrukturen benutzt 

- das Komma (',') trennt Parameter 

- Klammernpaare ('(', ')') werden zum Einklammern von Parameter listen Oder Teil- 
ausdrucken benutzt 

- mit Anfuhrungszeichen ("") werden Text-Denoter umrahmt 

- eckige Klammernpaare (•[', ']') werden zur Subskription benutzt. 



Als Operatornamen sind folgende Sonderzeichen eriaubt: 

- ein Sonderzeichen, sofern es nicht als Trennzeichen benutzt wird: 
!$%&•*+- / <«>?©"•" 

- eine Kombination von zwei Sonderzeichen. Diese Kombination muB jedoch k)ereits 
in ELAN existieren: 

:= <= >= <> ** 
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2.2.4 Kommentare 



Kommentare dienen ausschlieBlich der Dokumentation eines Programms. Sie warden 
vom Compiler uberlesen und haben somit keinen EinfluB auf die Ausfuhrung eines 
Programms. Sie durfen an beiiebigen Stellen eines Programmtextes geschrieben 
werden, jedoch nicht innerhalb von SchlusselwOrtern und Namen. Ein Kommentar darf 
uber mehrere Zeilen gehen. in ELAN sind Kommentare nur in wenigen Fdllen notwen- 
dig, da Programme durch andere Mittel gut lesbar geschrieben werden kOnnen. 

Ein Kommentar in ELAN wird durch Kommentarklammern eingeschlossen. Es gibt 
folgende Formen von Kommentarklammern: 

(♦ Kommentar f } ; 

{ Kommentar 

#( Kommentar Jii: 

Die letzte Version • Kommentar : wird im EUMEL- System nicht 

unterstQtzt; statt dessen gibt es noch folgende MOglichkeit: 

Kommentar # 



Da be\ der Kommentarkennzeichnung mit # fOr Kommentaranfang und -ende das 
gleiche Zeichen benutzt wird, ist eine Schachtelung hier nicht mdglich. 
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2.3 Datenobjekte 



Eine Klasse von Objekten mit gieichen Eigenschaften wird in Programmiersprachen 
Datentyp genannt. Dabei hat ein Datentyp immer einen Namen, der die Klasse von 
Objekten sinnvoll kennzeichnet. Als ein Datenobjekt wird ein Exemplar eines Daten- 
typs (also ein spezielles Objekt einer Klasse) t)ezeichnet. 

Datentypen sind in ELAN ein zentrales Konzept. Jedes der in einem ELAN- 
Programm verwandten Datenobjekte hat einen Datentyp; somit kann man Datentypen 
auch als Eigenschaften von Datenobjekten ansehen. Fur jeden Datentyp sind nur 
spezielle Operationen sinnvoll. Man kann nun Compilern die Aufgabe uberlassen zu 
uberprOfen, ob stets die richtige Operation auf einen Datentyp angewandt wird. 



2.3.1 Elementare Datentypen 



Einige Datentypen spielen bei der Programmierung eine besondere Rolle, well sie 
hdufig benOtigt werden. 

In ELAN sind das die Datentypen fur 

- ganze Zahlen (INT) 

- reelle Zahlen (REAL) 

- Zeichen und Zeichenfolgen (TEXT) 

- Wahrheitswerte (BOOL). 

Diese Datentypen sind von der Sprache ELAN vorgegeben und werden elementare 
Datentypen genannt. FOr effiziente Rechnungen mit elenf)entaren Datentypen gibt es 
in den moisten Rechnern spezielle Schaltungen, so daB die Hervorhebung und be- 
sondere Rolle, die sie in Programmiersprachen spielen, gerechtfertigt ist. Zudem hat 
man Werte - Darstellungen (Denoter) innerhalb von Programmen fOr die elementaren 
Datentypen vorgesehen. 
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2.3.1.1 Denoter fur elementare Datentypen 



Die Darsteliung eines Werts in einem Rechner zur Laufzeit eines Programms wird 
Representation genannt. Wenn es eindeutig ist, daB es sich nur urn die Representa- 
tion im Rechner handeit, spricht man kurz von Werten. Urn mit Objekten elementarer 
Datentypen arbeiten zu kOnnen, muB es in einem Programm die M6glichkeit geben, 
Werte eines Datentyps zu bezeichnen (denotieren). Die Werte - Darstellungen, die in 
ELAN Denoter genannt warden, sind fur jeden Datentyp unterschiedlich. WIe bereits 
erw&hnt, haben alle Datenobjekte in ELAN (also auch Denoter) nur einen - vom 
Compiler feststellbaren - Datentyp. Aus der Form eines Denoters ist also der Daten- 
typ erkennbar: 



INT - Denoter: 

Sie bestehen aus einer Aneinanderreihung von Ziffern. 

Beispiele: 

17 
007 
32767 
0 

FQhrende Nullen spielen bei der Bikjung des Wertes ke'irye Rolle (sie werden vom 
ELAN -Compiler uberlesen). Negative INT -Denoter gibt es nicht. Negative Werte 
werden durch eine Aufeinanderfolge des monadischen Operators (siehe 2.4.1.1) 
und eines INT - Denoters realisiert. 
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REAL - Denoter: 

Hier gibt es zwei Formen: 

Die erste besteht aus zwei INT-Denotern, die durch einen Dezlmalpunkt getrennt 
werden. 

Beispiele: 

0.314159 
17.28 

Der Dezimalpunkt wird wie ein Komma in der deutschen Schreibweise benutzt. Nega- 
tive REAL -Denoter gibt es wiederum nicht. 

Die zweite Form wird als 'wissenschaftliche Notation' bezeichnet. Sie findet dann 
Verwendung, wenn sehr groBe Zahlen Oder Zahlen. die nahe bei Null liegen, darge- 
steiit werden mussen. 

Beispiele: 

3.0 e5 
3.0e-5 

Der INT -Denoter hinter dem Buchstaben e gibt an, wie viele Stellen der Dezimal- 
punkt nach rechts (positive Werte) t)zw. nach links (negative Werte) zu verschieben 
ist. Dieser Wert wird Exponent und der Teil vor dem Buchstaben e Mantisse genannt. 
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TEXT-Denoter: 

Sie werden in Anfuhrungszeichen eingeschiossen. 
Beispieie: 

"Das ist ein TEXT-Denoter" 

"Jetzt ein TEXT-Denoter ohne ein Zeichen: ein leerer Text" 



Zu beachten ist, daB das Leerzeichen ebenfalls ein Zeichen ist. Soil ein Anfuhrungs- 
zeichen in einem TEXT erscheinen (also gerade das Zeichen, welches einen Denoter 
beendet), so muB es doppeit geschrieben werden. 

Beispieie: 

"Ein TEXT mit dem ""-Zeichen" 

"Ein TEXT-Denoter nur mit dem ""-Zeichen:" 



Manchmal sollen Zeichen in einem TEXT-Denoter enthalten sein, die auf dem 
Eingabegerdt nicht zur Verfugung stehen. In diesem Fall kann der Code -Wert des 
Zeichens angegeben werden. 

Beispiel: 

"da"251"" 

ist gleicht)edeutend mit "daB". Der Code -Wert eines Zeichens ergibt sich aus der 
EUMEL - Code - Tabelle (siehe 5.2.4.1), in der jedem Zeichen eine ganze Zahl zuge- 
ordnet ist. 

BOOL -Denoter: 

Es gibt nur zwei BOOL - Denoter: 

TRUE fur "wahr" und FALSE fur "falsch". 
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2.3.1 .2 LET - Konstrukt fiir Denoter 



Neben der Funktion der AbkOrzung von Datentypen (siehe 2.6.3) kann das LET- 
Konstrukt auch fur die Namensgebung fiir Denoter verwandt warden. 



Die LET - Vereinbarung sieht folgendermaBen aus: 



i£T Name •» Denoter 



Mehrere Namensgebungen kOnnen durch Komma getrennt werden. 



LET anzahl = 27} 
LCI pi « 3.14159, 
blank :t ^ 



Der Einsatz von LET-Namen fur Denoter hat zwei Vorteile: 



- feste Werte im Programm sind leicht zu andern, da nur an einer Stelle des Pro- 
gramms der Denoter geAndert werden muB 

(Z.B.: In VereintMirungen von Reihungen (siehe 2.6.1) kOnnen LET -Denoter, im 
Gegensatz zu Konstanten, als Obergrenze angegeben werden. Dieser 
Wert kann dann auch an anderen Stellen des Programms. z.B. in Schlei- 
fen (siehe 2.4.2.5), tsenutzt werden. Bei Anderung der ReihungsgrOBe 
braucht dann nur an einer Stelle des Programms der Wert geftndert zu 
werden.) 

- der Name gibt zus&tzliche Information Qber die Bedeutung des Denoters. 
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2.3.2 



Zugriffsrecht 



Von manchen Datenobjekten weiB man, daB sie nur einmal einen Wert erhalten 
sollen. Sie sollen also nicht verAndert werden. Oder man weiB. daB in einem Pro- 
grammbereich ein Datenobjekt nicht verAndert werden soil. Um ein unbeabsichtigtes 
VerAndern zu verhindern, wird in ELAN dem Datenobjekt ein zusdtzlicher Schutz 
mitgegeben: das Zugriffsrecht Oder Acoessrecht. 

In der Deklaration eines Datenobjekts k6nnen folgende Accessattribute angegeben 
werden: 

- Vl^ fQr lesenden und schreibenden (verdndernden) Zugriff 

- CDHST fur nur lesenden Zugriff. 



Dam it man Datenobjekte in einem Programm ansprechen kann, gibt man einem 
Datenobjekt einen Namen (wie z.B. einen Personennamen, unter der sich eine wirk- 
liche Person "verbirgt"). Will man ein Datenobjekt in einem Programm verwenden, so 
muB man dem Compiler mitteilen, welchen Datentyp und welches Accessrecht das 
Objekt haben soli. Das dient u.a. dazu, nicht vereint)arte Namen (z.B. verschriebene) 
vom Compiler entdecken zu lassen. Weiterhin ist aus dem bei der Deklaration ange- 
gebenen Datentyp zu entnehmen, wieviel Speicherplatz fur das Objekt zur Laufzeit zu 
reservleren ist. 

Eine Deklaration Oder Vereinbarung besteht aus der Angabe von 

- Datentyp 

- Zugriffsrecht ( Oder mm ) 

- Name des Datenobjekts. 



2.3.3 



Deklaration 
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Verschiedene Datenobjekte mit gleichem Datentyp und Acoessrecht dOrfen in einer 
Deklaration angegeben warden; sie warden durch Kommata getrennt. Mehrere Dekla- 
rationen werden - genauso wie Anweisungen - durch das Trennzeichen Semikolon 
voneincmder getrennt. 



INT VAR weifT wert, d«in wert^ unser wert; 
fiOQL VAR listen ende; 
TEXT VAR zeile, wort; 



2.3.4 Initialisierung 



Urn mit den vereinbarten Datenobjekten arbelten zu kOnnen, muB man ihnen einen 
Wert geben. Hat ein Datenobjekt noch keinen Wert erhalten, so sagt man, sein Wert 
sei undefiniert. Das versehentiiche Arbelten mit undefinierten Werten 1st eine beliebte 
Fehierquelie. Deshalb wird von Programmierern strong darauf geachtet, diese Fehler- 
kuelle zu vermeiden. Eine Wertgebung an ein Datenobjekt kann (muB aber nicht) 
tDereits bei der Deklaration erfolgen. In ELAN wird dies Initialisierung genannt. Fur mit 
CONST vereinbarte Datenobjekte ist die Initialisierung die einzige MOglichkeit, ihnen 
einen Wert zu geben. Die Initialisierung von Konstanten ist zwingend vorgeschrieben 
und wird vom Compiler ut)erpruft. 

Die Initialisierung besteht aus der AngatDO von 

- Datentyp 

- Zugriffsrecht ( mM Oder HMMM ) 

- Name des Datenobjekts 

- Operator Mi^u Oder Cig^i 

- Wert, den das Datenobjekt erhalten soli (Denoter, Ausdruck). 



nEAL MNST pi :: 3.14159, zwfel pi :a ^.0 * pi; 
SPOL VAI^ bareits sortiert TRUE; 
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2.4 Programmeinheiten 



Neben Deklarationen (Vereinbarungen) sind Programmeinheiten die Qrundbestandteiie 
von ELAN. 



Programmeinheiten kOnnen sein: 

— elefnentBTB ProoramineinheitBn 

- Ausdruck 

- Zuweisung 

- Refinementanwendung 

- Prozeduraufruf 

— zusammengesetztB ProgrammeinheilBn 

- Folge 

- Abfrage 

- Auswahl 

- Wiederholung 

— abstrahiorende ProgranmiBinheilBn 

- Refinementbvereint)arung 

- Prozedurvereinbarung 

- Operatorvereinbarung 

- Paketvereinbarung. 
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2.4.1 



Elementare Programmeinheiten 



2.4.1.1 



Ausdruck 



Ausdrticke sind eine Zusammenstellung von Datenobjekten (Denoter, VAR- Oder 
CONST -Objekte) und Operatoren. Jeder korrekte Ausdruck iiefert einen Wert. Der 
Typ des Ausdrucks wird bestimmt durch den Typ des Wertes, den der Ausdruck 
Iiefert. 

Operatoren 



Operatoren werden in ELAN durch ein Oder zwei Sorxjerzeichen Oder durch GroB- 
buchstaben als SchlOsselwort dargestelit (siehe 2.4.3.3). 

Ais Operanden (also die Datenobjekte, auf die ein Operator 'wirken' soli) durfen 
VAR- und CONST -Datenobjekte, Denoter Oder AusdrQcke verwendet werden. Typ 
der Operanden und des Resultats eines Operators werden in der Operatorvereint>a- 
rung festgelegt (siehe 2.4.3.3). 

Man unterschektet zwei Arten von Operatoren: 

— monBdischB Operaloren 

Monadischen Operatoren haben nur einen Operanden, der rechts vom Operator- 
zeichen geschrieben werden muB. 



Der - Operator Iiefert den Wert von a mit umgekehrten Vorzeichen. a muB 
dabei vom Datentyp INT Oder REAL sein. 

Der Operator 'NOT' realisiert die logische Negation, y muB vom Datentyp BOOL 
sein. 



Beispiel: 



- a 
NOT X 



2 - 



14 
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— dyadischB Operatoren 

Dyadische Operatoren haben zwei Operanden. Das Operatorzeichen steht zwi- 
schen den beiden Operanden. 

Beispiele: 

a b 
a - b 
a * b 
a DIV b 
a b 
X < y 
X <> y 
X AND y 
X OR y 

In den ersten funf Beispieien werden jeweils die Werte von zwei INT-Objekten a 
und b addiert (Operatorzeichen: * + subtrahiert ('-'), multipliziert ('*'), dividlert 
(ganzzahiige Division ohne Rest: 'DIV*) und potenziert 

Im sechsten und siebten Beispiel werden zwei BOOL -Werte x und y verglichen 
und im achten und neunten Beispiei die logische Operation 'und' (Operator 'AND') 
bzw. 'Oder' (Operator 'OR') durchgefuhrt. 
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Prioritat von Operatoren 



Es ist eriaubt, einen Ausdruck wiederum als Operanden zu verwenden. Praktisch 
bedeutet dies, daB mehrere Operatoren und Datenobjekte zusammen in einem Aus- 
druck geschrieben werden diirfen. 

Beispiele: 

a + 3 - b ♦ c 
- a ♦ b 

Die Reihenfolge der Auswertung kann man durch Angabe von Klammern steuern. 
Beispiel: 

(a + b) ♦ (a + b) 

Es wird jeweils erst 'a + b' ausgewertet und dann erst die Multlplikation durchge- 
fuhrt. In ELAN ist es eriaubt, beliebig viel Klammernpaare zu verwerxjen (Regel: die 
innerste Klammer wird zuerst ausgefuhrt). Es ist sogar zulAssig, Klammern zu ver- 
wenden. wo keine notwendig sind. denn uberflussige Klammernpaare werden uberle- 
sen. Man muB jedoch t)eachten, daB Ausdrucke, und damit auch z.B. (a), immer 
Accessrecht CONST haben. 

Beispiel: 

((a - b)) ♦ 3 ♦ ((c + d) ♦ (c - d)) 

Somit kOnnen t)eliebig komplizierte Ausdrticke formuliert werden. 

Urn solche AusdrQcke einfacher zu behandein und sie so Ahnlich schreiben zu kdn- 
nen, wie man es in der Mathematik gewohnt ist, wird in Programmiersprachen die 
Reihenfolge der Auswertung von Operatoren festgelegt. In ELAN wurden neun Ebe- 
nen, Prioritdten genannt, festgelegt: 
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Prioritflt 



Operaloren 



9 
8 
7 
6 
6 
4 
3 
2 




aile monadischen Operatoren 



/, DIV, MOD 



(Die erwAhnten Operatoren in der Tabelle werden in der Beschreibung der Standard- 
prozeduren und - Operatoren besprochen). 

Operatoren mit der hOchsten Prioritdt werden zuerst ausgefUhrt. dann die mit der 
ndchst niedrigeren Prioritftt usw.. Operatoren mit gieicher Priorit&t werden von links 
nach rechts ausgefuhrt. Dadurch ergibt sich die gewohnte Abarbeitungsfolge wie beim 
Rechnen. 

Beispiel: 

-2 + 3 ♦ 2 3 

a) -2 

b) 2 3 

c) 3 ♦ (2 3) 

d) ((-2)) + (3 * (2 3)) 

Wie t)ereits erwAhnt, ist es immer eriaubt, Klammern zu setzen. 1st man sich also 
uber die genaue Abarbeitungsfolge nicht im Ktaren, so kann man Klammern verwen- 
den. 
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2.4.1.2 Zuweisung 



Ein spezieller Operator ist die Zuweisung. 
Form: 

Variable Wert 

Dieser Operator hat immer die geringste Priorit&t, wird also immer als letzter einer 
Anweisung ausgeftihrt. Die Zuweisung wird verwendet, urn einer Variablen einen 
neuen Wert zu geben. Der Operator liefert kein Resultat (man sagt auch, er 
liefert Keinen Wert) und verlangt als linken Operanden ein VAR - Datenobjekt, an den 
der Wert des rechten Operanden zugewiesen werden soil). Der Wert des linken Oper- 
anden wird also verftndert. Der rechte Operand wird nur gelesen. 



9- t^i 



Hier wird der Wert von 'b' der Variablen 'a' zugewiesen. Der vorher vorhandene Wert 
von *a' geht dabei verloren. Man sagt auch, der Wert wird Dberschrieben. 

Als rechter Operand des ': > ' - Operators darf auch ein Ausdruck stehen. 



A is "fa ^ Cj 



Hier wird das Resultat von 'b + c' an die Variable 'a' zugewiesen. Man beachte 
dabei die PrioritAten der Operatoren ' + ' (PrioritAt 6) und (Prioritdt 1): die Addition 
wird vor der Zuweisung ausgefuhrt. Die Auswertung von Zuweisungen mit Ausdrucken 
muB immer so verlaufen, da die Zuweisung stets die niedrigste Prioritflt aller Operato- 
ren hat. 
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Oft kommt es vor, daB ein Objekt auf der linken und rechten Seite des Zuweisungs- 
operators erscheint. z.B. wenn ein Wert erhOht werden soil. 



mmmmKmmmmmmmm 

a a 1; 



Hier wird der "alte". aktuelle Wert von 'a' genommen, urn 'V erhOht und dem Objekt 
'a' zugewiesen. Man beachte, daB hier in einer Anweisung ein Datenobjekt unter- 
schiedliche Werte zu unterschiedlichen Zeitpunkten haben kann. 



2.4.1 .3 Refinementanwendung 



In ELAN ist es mOglich, Namen fUr Ausdrucke Oder eine bzw. mehrere Anweisungen 
zu vergeben. Das Sprachelement, das diese Namensgebung ermOgiicht, heiSt Refi- 
nement. Die AusfOhrung eines solchen Namens heiSt Refinementanwendung, die 
Namensgebung heiBt Refinementvereinbarung (siehe 2.4.3.1). Die Ausdrucke Oder 
Anweisungen bikjen den Refinementrumpf. Ein Refinement kann man in einem Pro- 
gramm unter dem Refinementnamen ansprechen. Man kann sicfi die AusfOhrung so 
vorstellen. als wurden der Refinementrumpf immer dort eingesetzt, wo der Name des 
Refinements als Operation benutzt wird. 
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2.4.1 .4 Prozeduraufruf 



Eine Prozedur ist eine Sammlung von Anweisungen und Daten, die zur Ldsung einer 
bestimmten Aufgabe benOtigt warden. Eine Prozedur wird in einer Prozedurvereinba- 
rung definiert (siehe 2.4.3.2). Eine solche Prozedur kann man in einem Programm 
unter einem Namen (eventueil unter Angabe von Parametern) ansprechen. Man 
spricht dann vom Aufruf einer Prozedur Oder einer Prozeduranweisung. 

Formen des Prozeduraufrufs: 

- Prozeduren ohne ParametBr warden durch den Prozedurnamen angesprochen. 



(Die Prozedur 'pause' wartet bis ein Zeichen eingegeben wird) 

- Prozeduren mit Parameter werden durch 

Prozedurnamen ( aktuelle Parameterliste ) 

aufgerufen. Eine Parameterliste ist entweder ein Datenobjekt Oder mehrere durch 
Kommata getrennte Datenobjekte. 



pause (10) I 



(Mit der Prozedur 'pause (INT CONST zeitgrenze)' kann fur eine Zeitdauer von 
'zeitgrenze' in Zehntel - Sekunden gewartet werden. Die Wartezeit wird durch 
Erreichen der Zeitgrenze Oder durch Eingabe eines Zeichens abgebrochen) 
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Bei den aktuellen Parametern ist folgendes zu beachten: 

a) Wird ein VAR - Parameter in der Definition der Prozedur vorgeschrieben, darf 
kein Ausdruck als aktueller Parameter "ubergetDen" werden, weil an einen 
Ausdruck nichts zugewiesen werden kann. Ausdrucke hak)en - wie bereits 
erwflhnt - das Accessrecht CONST. 



TEXT VA« textl, textZ; 
textl := ''Dlesea 8el«piel ^} 
textZ := ^Fehlerweldung*^; 

insert char (textl + text2» ^li#fert eine''^ 17); 



(Die Prozedur 'insert char (TEXT VAR string, TEXT CONST char, INT CONST 
pos)' fOgt das Zeichen 'char' in den Text 'string' an der Position 'pos' ein) 

b) Wird ein CONST - Parameter verlangt, dann darf in diesem Fall ein Ausdruck 
als aktueller Paranr)eter geschrieben werden. Aber auch ein VAR - Datenobjekt 
darf angegeben werden. In diesem Fall wird eine Wandlung des Accessrechts 
(CONSTing) vorgenommen: der aktuelle Parameter erhAlt sozusagen ftir die 
Zeit der Abart3eitung der Prozedur das Accessrecht CONST. 



In ELAN sind auch Prozeduren als Parameter eriaubt. Die Prozedur als aktueller 
Parameter wird in der Parameterliste folgendermaBen angegeben: 

Resultattyp I^C ^ virtuelle Parameterliste ) Procname 

Die Angat3e des Resultattyps entfailt, wenn es sich nicht um eine wertliefernde 
Prozedur handelt. Die virtuelle Parameterliste inklusive der Klammern entfftllt, falls 
die Prozedur keine Parameter hat. Die virtuelle Parameterliste beschreibt die 
Parameter der Parameterprozedur. Es werden Datentyp und Zugriffsrecht eines 
jeden Parameters angegeben, jedoch ohne Namen. 



wftrtetahelle (R£AL PftOC (REAL COWST) sin, 

tmtergt6n2]$< ob^t^rectte, dchtitt><eitfe); 



(Die Prozedur 'sin' wird an die Prozedur 'wertetabelle' ubergeben) 
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2.4.2 Zusammengesetzte Programmeinheiten 



2.4.2.1 Folge 



Mehrere in einer bestimmten Reihenfolge auszufuhrende Anweisungen werden als 
Folge bezeichnet. In ELAN kann man eine Oder mehrere Anweisungen in eine Pro- 
grammzeile schreiben Oder eine Anweisung Qber mehrere Zeilen. Das setzt jedoch 
voraus, daB die Anweisungen voneinander getrennt werden. Die Trennung von Anwei- 
sungen erfolgt in ELAN durch das Trennsymbol Semikoion. Es bedeutet soviet wie: 
'fuhre die ndchste Anweisung aus". 



put i^metn^y^ 
put (1); 

put i^. Prograaw'^) 



(Die Prozedur 'put' gibt den ais Parameter angegebenen Wert auf dem Ausgabegerdt 
aus) 
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2.4.2.2 Abfrage 



Mit Abfragen steuert man die bedingte Ausfuhrung von Anweisungen. Abhdngig von 
einer Bedingung wird in zwei verschiedene Programmabschnitte verzweigt. 

Der formate Aufbau einer Abfrage sieht folgendermaBen aus: 

If. Bedingung 

||€M Abschnitt 
WLM Abschnitt 

m If 

Der ELSE-Teil darf dabei auch fehlen. Anstelle von WS^nSM darf auch die Abku^ 
zung H (IF von hinten gelesen) benutzt werden. 

In folgenden Beispielen wird der Absolutbetrag von 'a' ausgegeben: 



IHT YAR a; 

IF « < ^ 

THEM 0 tm 
END IF; 



GMD 



2-23 



EUMEL - Benutzerhandbuch 



Die Umkehrung des Vorzeichens von a im THEN-Teil wird nur durchgefuhrt, wenn 
der BCX)Lesche Ausdruck ('a < 0') den Wert TRUE liefert. Liefert er den Wert 
FALSE, wird die Anweisung, die der bedingten Anweisung folgt (nach END IF), ausge- 
fuhrt. Das obige Programm kann auch anders geschrieben werden: 



IHT ¥AR a; 

get (a>; 

If a < 0 

THEM put (-a) 
ELSE putt (a> 

£HD IF 



Der THEN-Teil wird wiederum ausgefUhrt, wenn die BOOLesche Bedingung erfullt 
ist. Liefert sie dagegen FALSE, wird der ELSE - Teil ausgefuhrt. 

Die bedingte Anweisung ermOglicht es, abh&ngig von einer Bedingung eine Oder 
mehrere Anweisungen ausfuhren zu lessen. Dabei kdnnen im THEN- bzw. ELSE- 
Teil wiederum bedingte Anweisungen enthalten sein. 
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Abfragekette 

Bei Abfrageketten kann das ELIF-Konstrukt eingesetzt werden. (ELIF ist eine Zu- 
sammenziehung der Worte ELSE und IF). 

Anstatt 



If b«<lin9un9l 
THEN aktlonl 
ELSE IF bedif^gwng^ 
TH£W aktioft2 

Em IF 
EW Iff 



kann man besser 



IF b^din^tinQl 
THEN «kUonX 

£LIf b«din9un92 
THEN aktion2 
£LSE aktlon3 

CTO If; 



schreiben. 
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2.4.2.3 Auswahl 



Die Auswahl wird benutzt, wenn alternative Anwendungen in Abhdngikeit von Werten 
eines Datenobjekts ausgefuhrt werden sollen. 

Der formale Aufbau der Auswahl sieht folgendermaBen aus: 

$a€£:T INT-Ausdruck (JT 

CASE 1. Liste von INT-Denotern t Abschnitt 
€|$£ 2. Liste von INT-Denotern t Abschnitt 



Cii^ n. Liste von INT-Denotern t Abschnitt 
UWEWtftm Abschnitt 



Eine Liste von INT-Denotern besteht aus einem oder mehreren durch Kommata ge- 
trennten INT-Denotern. Der OTHERWISE -Teil darf auch fehlen. Man sollte ihn 
jedoch verwenden, urn Fehlerfftlle abzufangen. 



SELECT monat OF 

CASE 2i If «cneltj:»hr 

THEM tdge 2» 29 
EiSE tage at 28 

CASE 4, 6, 9, lit tftge ^0 
CASE I, Ij 10 ,12\ t«9e 31 

QTHEI^ISE kein mon^t 
END SELECT j 



(In diesem Programmausschnitt werden die Tage eines Monats bestimmt) 
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2.4.2.4 Wertliefernde Abfrage und 
wertliefernde Auswahi 

Soil eine Abfrage Oder eine Auswahi einen Wert liefern, dann darf der ELSE- bzw. 
der OTHERWISE - Teil nicht fehlen und alle Zweige mussen einen Wert liefern. 



SCLCCT monat OF 

CASE 2: If achaltj«nr 
THEN Z9 
£tS£ 28 
EHD IF 
CASE 4, 6^ 9» 11: W 
CASE I, 3^ 5, 7, 8, 10 ,12: 31 
OTHEWISE kain fKm^U 0 
END SELECT; : 



2.4.2.5 Wiederholung 



Die Wiederholung dient zur mehrfachen Ausfuhrung von Anweisungen. meist in Ab- 
hdngigkeit von einer Bedingung. Darum wird die Wiederholungsanweisung oft auch 
Schleife genannt und die in ihr enthaltenen Anweisungen Schleifenrumpf. 

Es gibt verschiedene Schleifentypen: 

- Endlosschleife 

- abweisende Schleife 

- nicht abweisende Schleife 

- zahlschleife. 
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Endlosschleife 

Bei der Endlosschleife wird nicht spezifiziert, wann die Schleife beendet werden soil. 
Form: 

Abschnitt 

Anstelle von BB^EWT darf die Abkurzung lllif^l und anstelle von WO I^EI^EAiT 
das Schlusselwort 1^1^ (REP von hinten gelesen) benutzt werden. 



ftCPEAT 

fixpoint; 
pause (IdOCO) 



Wird dieses Programm in einer Task im SYSUR-Zweig ausgefuhrt. so fuhrt diese 
Task Fixpunkte im Abstand von 30 Minuten durch. 
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Abweisende Schleife 

Bei der abweisenden Schleife wird die Abbruchbedlngung an den Anfang der Schieife 
geschrieben. 

Form: 

mm Bedingung f^PEftT 

Abschnitt 
Em flEI^AT 

Bei jedem erneuten Durchlauf der Schleife wird uberpruft, ob der BOOLesche Aus- 
druck den Wert TRUE tiefert. 1st das nicht der Fall, wird die Bearbeitung mit der 
Anweisung fortgesetzt, die auf das Schieifenende folgt. Die Schleife wird abweisende 
Schleife genannt. well der Schleifenrumpf nicht ausgefuhrt wird, wenn die Bedingung 
vor Eintritt in die Schleife bereits FALSE liefert. 

Nicht abweisende Schleife 

Anders verh&lt es sich bei der nicht abweisenden Schleife. Bei der nicht abweisenden 
Schleife wird die Abbruchbedlngung an das Ende der Schleife geschrieben. 

Form: 

Abschnitt 
UmtL Bedingung m m^tAf 

Hier wird der Schleifenrumpf auf jeden Fall einmal bearbeitet. Am Ende des Rumpfes 
wird die BCX)Lesche Bedingung abgefragt. Liefert sie den Wert FALSE, wird die 
Schleife erneut at>gearbeitet. Liefert die Bedingung den Wert TRUE, wird die Schleife 
abgebrochen und mit der ersten Anweisung hinter der Schleife in der Bearbeitung 
fortgefahren. 
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Bei den beiden letztgenannten Arten der Wiederholungsanweisung ist es wichtig, daB 
Elemente der BOOLeschen Bedingung in der Schleife verdndert werden, damit das 
Programm terminieren kann, d.h. die Schleife abgebrochen wird. 



TEXT VAft wott^ 6dt2 1 : ♦^^^ 
«EPEAT 

<wdtt>; 
satz CAT wort; 
6at? CAT * 
UMTIL wart F£Hi 



Dises Programm liest solange WOrter ein und verbindet diese zu einem Satz, bis ein 
Punkt eingegeben wurde. 



zahlschleife 

ZAhlschleifen werden eingesetzt, wenn die genaue Anzahl der Schieifendurchldufe 
bekannt ist. 

Form: 

fm Lauf variable iiilii Anfangswert WKK Endwert 
Abschnitt 

Bei Zfthlschleifen wird eine Laufvariable verwendet, die die INT-Werte von 'Anfangs- 
wert' bis 'Endwert' in Schritten von 1 durchlduft. 'Anfangswert' und 'Endwert' kOnnen 
beliebige INT-AusdrOcke sein. Diese Schleife zfthlt 'aufwdrts'. Wird anstatt IIIMIi 
das SchlOsselwort lllg^^ verwendet, wird mit Schritten von 1 "abwArts" gezAhlt. 



2-30 



GMD 



TEIL 2 : ELAN 



Form: 

Laufvariable IHiSI Endwert Anfangswert MfMT 

Abschnitt 

Die Laufvariable dart in der Schleife nicht verftndert warden. Nach dem normalen 
Schleifenende ist der Wert der Laufvariablen nicht definiert. 



IMT Vim ^uinttie :t 0, it 

FOR i mm I WW im repeat 

EMO REPEAT 



Dieses Programm berechnet die Summe der natOrlichen Zahlen von 1 bis 100. 



Die verschiedenen Schleifenarten IcOnnen kombiniert werden: 

I^OH Laufvariable fWM Anfangswert UPtO Endwert 
Bedingung MfS^hf 
Abschnitt 



1^ Laufvariable fHON Anfangswert yPTO. Endwert 111111111 

Abschnitt 
ONta Bedingung m MHAX 



INIII. Bedingung m&^T< 

Abschnitt 
MHTli Bedingung mmW(t 
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2.4.3 Abstrahierende Programmeinheiten 



2.4.3.1 Refinementvereinbarung 



In ELAN ist es mOglich, Namen fur Ausdrucke Oder eine bzw. mehrere Anweisungen 
zu vergeben. Das Spracheiement, das diese Namensgebung ermOglicht, heiBt Refi- 
nement. Die Ausfuhrung eines solchen Namens heiBt Refinementanwendung (siehe 
2.4.1.3), die Namensgebung heiBt Refinementvereinbarung. Die Ausdrucke Oder 
Anweisungen bikjen den Refinementrumpf. 

Werden in einem Programm Refinements t)enutzt, dann wird der Programmteil bis 
zum ersten Refinement durch einen Punkt abgeschlossen. Die Refinementvereinba- 
rung sieht folgendermaBen aus: 

Name .. s.: 

Abschnitt « 



im VAR a, t>, x; 
eintlesen von a und b; 
vert aus Gher> von a und b; 
vertausctYte wert« amgebanr 

einlesen von a ond b; 
^^t (a); 
get (b), 

vertAuschen von a und b: 

« ;± to; 

b is X. 

vertaaschta wert« au^geb^nt 
put (a); 
put <b). 
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Fur den Namen 'einlesen von a und b' werden die Anweisungen 'get (a); get (b)' vom 
ELAN - Compiler eingesetzt. Man kann also die ersten vier Zeilen des Programms als 
eigentiiches Programm ansehen, wobei die Namen durch die betreffenden Anwei- 
sungen ersetzt werden. Ein Refinement hat also keinen eigenen Datent)ereich, d.h. 
Vereinbarungen, die in Refinements gemacht werden, gelten auch auBerhaib des 
Refinements. 



Vorteile der Refinementanwendung 

Durch die sinnvolle Verwendung von Refinements wird ein Programm im Programm 
und nicht in einer separaten Beschreibung dokumentiert. Weiterhin kann ein Pro- 
gramm "von oben nach unten' ("top down") entwickelt werden: Das obige - zuge- 
geben einfache - Beispielprogramm wurde in drei Telle zerlegt und diese durch 
Namen twschrieben. Bei der Beschreibung von Aktionen durch Namen wird gesagt 
was gemacht werden soil. Es wird noch nicht tseschrietien wie, denn auf dieser Stufe 
der Programnrtentwicklung braucht man sich um die Reaiisierung der Refinements 
(noch) keine Sorgen zu machen. Das erfolgt erst, wenn das Refinement programmiert 
werden mu6. Dabei kOnnen wiederum Refinements verwendet werden usw., bis man 
auf eine Ebene "heruntergestiegen" ist. bei der eine (jetzt: Tell-) ProblemlOsung sehr 
einfach ist und man sie direkt hinschreiben kann. Man beschdftigt sich also an jedem 
Punkt der ProblemlOsung nur mit einem Teilaspekt des gesamten Problems. Zudem 
sieht man - wenn die Refinements einigermaBen vernunftig verwendet werden - 
dem Programm an, wie die Problemldsung entstanden ist. 

Die Verwendung von Refinements hat also eine Anzahl von Vorteilen. 
Refinements ermOglichen: 

- "top down" - Programmierung 

- Strukturierung von Programmen und damit effiziente Fehlersuche und gute Wart- 
barkeit 

- Dokumentation im Programmtext. 
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Wertliefernde Refinements 

Refinements kdnnen auch dort verwendet werden, wo ein Wert erwartet wird, z.B. in 
einem Ausdruck Oder einer 'put' - Anweisung. In diesem Fall mu6 die letzte Anwei- 
sung des Refinennents einen Wert liefert. 



put (resultat)t 

rewltet; 

(a * b 4" c) 3. 



Man kann auch ein wertlieferndes Refinement mit mehreren Anweisungen schrei- 
ben. 

Allgemeine Regel: 

Die letzte Anweisung eines Refinements bestimmt, ob es einen Wert liefert - und 
wenn ja, von weichen Datentyp. 
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2.4.3.2 Prozedurvereinbarung 



Eine Prozedur ist eine Sammlung von Anweisungen und Daten, die zur LOsung einer 
bestimmten Aufgabe bendtigt werden. 

Der formale Aufbau einer Prozedur sieht folgendermaBen aus: 

Prozedurname ; 
Prozedurrumpf 
EHb HICK^ Prozedurname 

Der Prozedurrumpf kann Deklarationen. Anweisungen und Refinements enthalten. 



PROC loeschfii bildsctilrm ab sktueller cursor position: 
out 

END ?WC loesche bildschirm ab aktueller cursorposition 



Verwendung von Prozeduren 

Prozeduren werden verwendet, wenn 

- Anweisungen und Datenobjekte unter einem Namen zusammengefaBt werden 
soiien ("Abstraktion") 

- gleiche Anweisungen von mehreren Stellen eines Programms verwandt werden 
sollen (Codereduktion), u.U. mit verschieden Datenobjekten (Parameter) 

- Datenobjekte nur innerhalb eines Programmteils bendtigt werden und diese nicht 
von dem gesamten Programm angesprochen werden sollen. 
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In den folgenden Programmfragmenten werden zwei Werte vertauscht. In der ersten 
LOsung wird ein Refinement, in der zweiten eine Prozedur verwandt. 



fk' 1 s|) 1 (' 1 : 



IF a > b 

THE^st vertausdhe a und b 
£«0 IF; 
put (a); 
put (b>; 

vertduschd a und b. 

vertausche a und b: 
INT CONST X a; 
a :s b; 









PiKOC vertausche a und b: 




INT CONST X a? 




a :s: b; 




b ;= X 




END l^ftDC vertausche a ufid b; 




If a > b 




THEN vert«usche a und b 




END If; 




put {«>; 




put (b>; 




vertausche b und b; 
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Beim ersten Hinsehen leisten beide Programme das Gleiche. Es gibt jedoch drei 
wichtige Unterschiede: 

1) Das Refinement 'vertausche a und b' wird zweimai (vom ELAN - Compiler) ein- 
gesetzt, d.h. der Code ist zweimai vorhanden. Die Prozedur dagegen ist vom Code 
nur einmal vorhanden, wird aber zweimai - durch das Auffuhren des Prozedur- 
namens - aufgerufen. 

2) Die Variable 'x' ist in der ersten Programmversion wdhrend des gesamten Ablaut 
des Programms vorhanden, d.h. ihr Speicherplatz ist wdhrend dieser Zeit belegt. 
Solche Datenobjekte nennt man statische Datenobjekte Oder auch (aus Grunden, 
die erst etwas spdter offensichtlich werden) Paket - Objekte. Das Datenobjekt 'x' 
der rechten Version dagegen ist nur wdhrend der Bearbeitung der Prozedur vor- 
handen, sein Speicherplatz wird danach freigegeben. Solche Datenobjekte, die nur 
kurzfristig Speicher belegen, werden dynamische Datenobjekte genannt. 

Prozeduren sind also ein Mittel, um die Speicherbelegung zu beeinflussen. 

3) Da Refinements keinen eigenen Datenbereich haben, kann die Variable 'x' in der 
ersten Programmversion - obwohl sie in einem Refinement deklariert wurde ~ 
von jeder Stelle des Programms angesprochen werden. Solche Datenobjekte 
werden globale Datenobjekte genannt. Das Datenobjekt 'x' der Prozedur dagegen 
kann nur innerhalb der Prozedur angesprochen werden, es ist also ein lokales 
Datenobjekt der Prozedur. Innerhalb der Prozedur durfen glotxile Datenobjekte 
(also Objekte, die auBerhalb von Prozeduren deklariert wurden) auch angespro- 
chen werden. 

Eine Prozedur in ELAN bildet im Gegensatz zu Refinements einen eigenen Gultig- 
keitsbereich hinsichtlich Datenobjekten und Refinements, die innerhalb der Pro- 
zedur deklariert werden. Prozeduren sind somit ein Mittel, um die in ihr dekla- 
rierten Datenobjekte hinsichtlich der Ansprechbarkeit nach AuBen "abzuschotten". 
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Prozeduren mit Parametern 

Prozeduren mit Parametern eriauben es, gleiche Anweisungen mit unterschiedlichen 
Datenobjekten auszufuhren. 

Form: 

fW$$t.:': Prozedurname iiil formale Parameterliste III ill 

Prozedurrumpf 
iNP-FlB^: Prozedurnamen 

Die Parameterliste besteht aus einem Oder mehreren durch Kommata getrennten Para- 
metern. Ein Parameter wird mit Datentyp, Accessrecht und Namen angegeben. 
Ahnllch wie bei der Datendeklaration braucht man fur aufeinanderfoigende Parameter 
mit gleichem Datentyp und gleichem Acoessrecht die Attribute nur einmal anzugeben. 
Parameter mit Accessrecht Wi^&SK sind Eingabeparameter, Parameter mit Access- 
recht liiEl; realisieren Ein-/Ausgabeparameter. 



IHJ VAR X it a; 
a :^ 
b X 
EttO PRDC vertauachaj^ 

im VAR eitta a 1, 
zwel : : Z, 

vartausehfi <«lrtt» zwei); * 
vertausche <zwei, drei); 
v«1^t:au6<^h# (eln6« 

put <«ifw)i put (zwal); put <d[r*i) 



Die Datenobjekte 'a' und 'b' der Prozedur 'vertausche' warden formale Parameter 
genannt. Sie stehen als Platzhalter fur die bei einem Prozeduraufruf einzusetzenden 
aktuellen Parameter (in obigen Beispiel die Datenobjekte 'eins', 'zwei' und 'drei'). 
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Prozeduren als Parameter 

Es ist auch mOglich. Prozeduren als Parameter zu definieren. 

Eine Prozedur als Parameter wird folgendermaBen in der Parameteriiste speziflziert: 

Resultattyp virtuelle Parameteriiste ) Prozedurname 

Die Angabe des Resultattyps entf&llt, wenn es sich nicht um eine wertliefernde Proze- 
dur handelt. Die virtuelle Parameteriiste inklusive der Klammern entfdllt, falls die 
Prozedur keine Parameter hat. Die virtuelle Parameteriiste t)eschreibt die Parame- 
ter der PEU-ameterprozedur. Es werden Datentyp und Zugriffsrecht eines jeden Para- 
meters angegeben. jedoch ohne Namen. 



PRDC Mirt#tab»ll« (l)£AL PROC (REAL CONST) funktion^ 

HZPfl CONST unter^rwze, otJ^r^re^nx^, 
schf ittmitd): 

REAL VAR wwt; 

ptitlin* 

wwt ?« uotergpwz^; 
REPCAT 

put it^xt (w^rtt IQf ^}}} 

put (text (ftinktion (wertj, 10, 5))j 

line; 

mrt IH£R schrittwftitts 
UHTIt vf«rt > Qt>ergrenze PER 

EliO ?ROC wrtetateelle; 

(* Froze^Jurawfruf ; *) 

w«rt«tftb«lli> (R£AL PROC (REAL CQHSl) &in^ 0.0, f^i, 0.2) 
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Wertliefernde Prozeduren 

Eine wertliefernde Prozedur sieht folgendermaBen aus: 

Resultattyp PBOC Prozedurname §{3 f ormale Parameterliste W^a tfyM 

wertliefernder Prozedurrumpf 
ililiiiii^ Prozedumamen 



Die Parameterliste inklusive Klammerung kann fehlen. Der Prozedurrumpf mu6 einen 
Wert mit dem in Resultattyp angeget)en Datentyp liefern. 



THEN a 
E«0 IF 



put imx Of 4>) 



(In diesem Beispiel wird das Maximum von 'a' und 'b' ermittelt und ausgegeben) 
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2.4.3.3 Operatorvereinbarung 

Operatoren kOnnen in ELAN dhnlich wie Prozeduren definiert werden. Operatoren 
mussen einen und kOnnen rmximal zwei Operatoren besitzen (monadische und dyadi- 
sche Operatoren). 

Form: 

Resultattyp OP Opname ( ein oder zwei Parameter ) 

Operatorrumpf 
£10 0P Opname 

Der Resultattyp wird nur bei wertliefernden Operatoren angeget)en. 
Als Operatornamen sind eriaubt: 

- ein SoTKjerzeichen, sofern es nicht als Trennzeichen t)enutzt wird: 
!$%&'*+- / < = >7@*'"' 

- eine Kombination von zwei Sonderzeichen. Diese Kombination muB jedoch bereits 
in ELAN existieren: 

<- >« <> ** 

- ein SchlCisselwort (siehe 2.2.1). 
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Vereinbarung eines monadischen Operators 



IHT OP SIGH (REAL COHST ar^uwBnt): 

If wr^uwwt < 0.0 imn -X 

£LIF ftr^ummt ;s 0.0 THEM 0 
fl 

END OP SIGW 



(Der Operator 'SIGN' liefert abhftngig vom Vorzeichen des Cibergebenen Wertes den 
INT- Wert -1, 0 Oder 1) 



Vereinbarung eines dyadischen Operators 



T£Xt OP ♦ <JNT CONST mt^hl, TCXT CONST t>: 
INT VAR zaeHler anzatil; 
TEXT VAR ergefanis 
WHILE zftahlar > 0 REP 

za«hl«r :st zairtiler - 1 
£HD R£Pj 
angetrais 
END OP »i 



(Der Operator '*' verkettet 'anzahl'- mal den Text 'f) 
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2.4.3.4 Paketvereinbarung 



Pakete sind in ELAN eine Zusammenfassung von Datenobjekten, Prozeduren, Opera- 
toren und Datentypen. Diese bilden den Paketrumpf. Eiemente eines Pakets (Prozedu- 
ren, Operatoren, Datentypen) k6nnen auBerhalb des Pakets nur angesprochen werden, 
wenn sie in der Schnittstelle des Pakets, die auch "interface" genannt wird, aufge- 
fuhrt werden. Mit anderen Worten: es kOnnen alle Eiemente eines Pakets von auBen 
nicht angesprochen werden, sofern sie nicht uber die Schnittstelle "nach auBen ge- 
reicht" werden. Pakete kOnnen separat ubersetzt werden, so daS der "Zusammen- 
t)au" eines umfangreichen Programms aus mehreren Paketen mOglich ist. 

Der formale Aufbau eines Pakets sieht folgendermaSen aus: 

Pfktmr Paketname mfm^- Schnittstelle t 

Paketrumpf 
m> PmCtI Paketname 

In der Schnittstelle werden Prozeduren und Operatoren nur mit ihrem Namen, durch 
Kommata getrennt, angegeben. Weiterhin kOnnen Datentypen und mit CONST verein- 
bane Datenobjekte in der Schnittstelle aufgefuhrt werden, aber keine VAR-Datenob- 
jekte, weil diese sonst iiber Paket - Grenzen hinweg ver^ndert werden k6nnten. 

Im Gegensatz zu einer Prozedur kann ein PACKET nicht aufgerufen werden (nur die 
Eiemente der Schnittstelle kdnnen benutzt werden). 

Pakete werden zu folgenden Zwecken eingesetzt: 

- Spracherweiterung 

- Schutz vor fehlerhaftem Zugriff auf Datenobjekte 

- Realisierung von abstrakten Datentypen. 



GMD 



2-43 



EUMEL - Benutzerhandbuch 



Spracherweiterung 



PftOC (INT VAR a, b)j 

END fl?QC sv^ap 

£ftt> PACKET fuer «tifte proziMktr 



Dies ist ein Paket, das eine Tausch - Prozedur fur INT-Datenobjekte bereitstellt. Das 
PACKET kann ubersetzt und dem ELAN - Compiler bekannt gemacht werden 
(EUMEL: "insertieren"). Ist das geschehen, kann man 'swap' wie alle anderen Proze- 
duren (z.B. 'put', 'get') in einem Programm verwenden. Tatsdchiich werden die mei- 
sten Prozeduren und Operatoren (aber auch einige Datentypen), die in ELAN zur 
Verfugung stehen, nicht durch den ELAN - Compiler realisiert, sondern durch solche 
PACKETS. Urn solche Objekte einigermaBen zu standardisieren, wurde in der 
ELAN - Sprachbeschreibung festgelegt, welche Datentypen, Prozeduren und Operato- 
ren in jedem ELAN -System vorhanden sein mussen. Solche Pakete werden Stan- 
dard -Pakete genannt. Jeder Installation - aber auch jedem Benutzer - steht es 
jedoch frei, zu den Standard - Paketen zus&tzliche Pakete dem Compiler bekannzu- 
geben, und damit den ELAN - Sprachumfang zu erweitern. 
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Schutz vor fehlerhaftem Zugriff auf Datenobjekte 



PACKET stack handling OEFItffS puBh^ pcp^ init stack t 
LET max s; 1000; 

«W mx INT VAR 9tack; (* sietre K»pxt^X «^i*H*ng^ 2.6.1, *) 
im VAR stack ^winter; 

PRCC init stack: 

4itack paiot^r :^ Q 
£HD Pmc iftit stack; 

PROC push (INT CONST dazu ^art)t 
stack painter IHCR if 
IF stack pointar > max 
THEN wro«*3tqp (^^tack qv^rflw") 
ELSE stack [stack polvttar] dazu wart 
END If 
END PROC py sh; 

PROC pop (INT VAR von wart): 
If stack pointer ^ 0 

THEN arrorstop (**stack ampty**) 
ELSE von wert ;^ stack (stack pointer If 
atack pointar OECfi 1 

ENO If 
END PROC pop 

£«© PACKET stack handling; 



Dieses Packet realisiert einen Stack. Den Stack kann man uber die Prozeduren 'init 
stack', 'push' und 'pop' t)enutzen. 
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INT anxahl tt 0, w«tt} 
REP 

get {wept); 
pufth (wert); 

mil encJ^ k^U^rium 

w«j^t« popp^n and W6^6b6ii: 
I«T VAR i; 

fOR i FROM 1 OPTO anrahl REP 

pop (wiBtrt); 

put <w«rt) 
END REP. 



Die Datenobjekte 'stack' und 'stack pointer' hat^en nur Gultigkeit innerhalb des 
PACKETS 'stack handling'. 



Anweisungen wie z.B. 



put (dtack [31>i 
stack {27] 5 



auBerhalb des PACKETS 'stack handling' sind also verboten und werden vom 
ELAN - Compiler entdeckt. 

Ein PACKET bietet also auch einen gewissen Schutz vor fehlerhafter Verwendung von 
Programmen und Datenobjekten. Wichtig ist weiterhin, daB die Realisierung des 
Stacks ohne weiteres gedndert werden kann, ohne daB Benutzerprogramme im 'main 
packet' gedndert werden mussen, sofern die Schnittstelle nicht verdndert wird. Bei- 
spielsweise kann man sich entschlieBen, den Stack nicht durch eine Reihung, son- 
dern durch eine Struktur zu realisieren. Devon bleibt ein Benutzerprogramm unbe- 
riihrt. 
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Realisierung von abstrakten Datentypen 

Der Vollst&ndigkeit halber wird folgendes Beispiel hier gezeigt. Wie neue Datentypen 
definiert werden, wird in Kapitel 2.7.1. erkldrt. 



PACKET wi<ler»ta«nde OEFINES WIDERSTAND, REIHC, PARALLEL, 

is^ qst^ putt 

TYPE WlD£R$TA*tf> « tHT; 

OP (WIDEBSTAND VAft 1, WlDERSIAHD CDHST r): 

COHC« (1) :^ COHCR <r) 
IHO OP 

PftOC ^et (WIOCftSTAHD VAft w>: 
I»T VAR i? 

w :it WIDE8STAN0 Mi) 
END PnOC aet^ 

PnOC put (WIOEI^STAND CONST w): 

put <C0ttC8 ()4)> 
END PimC put; 

WIDERSTAND OP f^lHl (WlOei^SlAND CONST 1, t>: 

WIDEHSTANO : ( CGNCR <1) CONCR (r>) 
END OP WIWl 

WlDe^STAND OP PAIiALLEL {WlpEHSTANO CONST 1, r): 
WIOERSTAWJ : 

{((mat in * concr (i^>) orv (concr (i> 4^ (men (r») 

END QP PARALLEL 

END PACKET widier^tfltendfa 



Dieses Programm realisiert den Datentyp WIDERSTAND und mit den Operationen 
eine Fachsprache. 
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2.4.4 Terminatoren fur Refinements, 
Prozeduren und Operatoren 

Das LEAVE - Konstrukt wird verwendet, urn eine benannte Anweisung (Refinement, 
Prozedur oder Operator) vorzeitig zu verlassen. Es ist auch m6glich, geschachtelte 
Refinements zu verlassen. 

Form: 

liAVe Name 



Durch eine (optionale) WITH - Angabe kann auch eine wertiiefernde benannte Anwei- 
sung verlassen werden. 

Form: 

iMm. Name IWii Ausdruck 





IWfT 


OP ** (INT CONST basis, ©xp); 




IF exp = 0 




THIH LEAVe WITH 1 




ELIF ei<p < a 




TH£^ LEAVE ** WITH 0 




ru 




IHT VAR zaetiler, er9et>ni»; 




ergebnls :^ basis; 




FOR xaahler FROM 2 iJPTO exp REP 




^r^dbnis tw ^tQebnis ^ basis 




PER$ 




ergebni^ 







(Diese Operation realisiert die Exponentiation fur INT-Werte) 
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2.4.5 Generizitat von Prozeduren 
und Operatoren 

In ELAN ist es mOglich, unterschiedlichen Prozeduren bzw. Operatoren gleiche 
Namen zu geben. Solche Prozeduren (Operatoren) werden generische Prozeduren 
(Operatoren) genannt. Die Identifizierung erfoigt durch Anzahl, Reihenfolge und Daten- 
typ der Parameter (Operanden). 

Deshalb werden Prozeduren und Operatoren unter Angabe des Prozedur- bzw. des 
Operatorkopfes dokumentiert. 

Beispiele: 

INT OP MOD (INT CONST 1, r) 
REAL OP MOD (REAL CONST 1, r) 

Der MOD -Operator liefert den Rest einer Division. Er ist sowohl fur INT- wie auch 
fur REAL-Datenobjekte definiert. 



PROC put (INT CONST wert) 
PROC put (REAL CONST wert) 
PROC put (TEXT CONST wert) 

Die put-Prozedur ist fur INT-, REAL- und TEXT - Datenobjekte definiert. 



Prioritat von generischen Operatoren 

Bei der Neudefinition von Operatoren kann man bereits benutzte Sonderzeichen Oder 
Schlusselw6rter benutzen. In diesem Fall bekommt der neudefinierte Operator die 
gleiche Prioritat wie der bereits vorhandene Operator. 
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2.4.6 Rekursive Prozeduren 
und Operatoren 



Alle Prozeduren und Operatoren durfen in ELAN rekursiv sein. 



INT PTOG fakultaet (IHl C0W5T n): 
if f> > 0 
THEN fakultaet (n-1) * n 

END If 
m> PmC fakultdfit 



Die Fakultatsfunktion ist kein gutes Beispiel fur eine Rekursion, denn das Programm 
kann leicht in eine iterative Version umgewandelt werden: 



IHT PROC fflrtcultTOt (INT CONST n): 
m ^Ad prdd s: 1, i; 
FOR i FWm 2 UPTO n REP 

. ptl^a taec ptM * i 

END ftEP; 
END PRDC fakultaet 
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Die Umwandlung von einem rekursiven Programm in ein iteratives ist ubrigens immer 
mOglich, jedoch oft nicht so einfach, wie in dem Beispiel der Ackermann - Funktion: 



im PROC acker <IH1 C0W5T n): 
If m a 0 

jmn n ^ I 

ELir n 0 
THEN acker 0) 
£LS€ acker (m - 1^ atrker {m, 

£HD mC Btker 



D) 



Das eigentliche Einsatzgebiet von rekursiven Algorithmen liegt aber bei den 'back- 
track' - Verfahren. Diese werden eingesetzt, wenn eine exakte algorithmische Ldsung 
nicht bekannt ist Oder nicht gefunden werden kann und man verschiedene Versuche 
machen muB, urn zu einem Ziel (Oder LOsung) zu gelangen. 
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2.5 Programmstruktur 



Ein ELAN - Programm kann aus mehreren Moduin (Bausteinen) aufgebaut sein. die in 
ELAN PACKETS genannt werden. Das ietzte PACKET wird "main packet" genannt, 
weil in diesem das eigentliche Benutzerprogramm (Hauptprogramm) enthalten ist. 
Dies soli eine Empfehlung sein, in welcher Reihenfolge die Elemente eines PACKETS 
geschrieben werden sollen: 

Ein "main packet* kann aus folgenden Elementen bestehen: 

a) Deklarationen und Anweisungen. Diese mussen nicht in einer bestimmten Reihen- 
folge im Programm erscheinen, sondern es ist mOgiich. erst in dem Augenblick zu 
deklarieren, wenn z.B. eine neue Variable benOtigt wird. Es ist jedoch gute Pro- 
grammierpraxis, die moisten Deklarationen an den Anfang eines Programms Oder 
Programmteils (Refinement, Prozedur) zu plazieren. 

< Deklarationen > ; 

< Anweisungen > 



•' 1^'' I ''P i ' 



IHT VAR «rste zahl, zweite zahl; 

put (^erste Zahl i^^ get (erste zaM); 
put (^ivfelte Z^hl ^♦•)^ get (iweite zahl) 



b) Deklarationen, Refinements und Anweisungen. In diesem Fall ist es notwendig, die 
Refinements hintereinander zu plazieren. Refinement - Aufrufe und/oder Anwei- 
sungen sollten textuell vorher erscheinen. 

< Deklarationen > ; 

< Refinement - Aufrufe und/oder Anweisungen > . 

< Refinements > 

Innerhalb der Refinements sind Anweisungen und/oder Deklarationen mOglich. 
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INT VAR erste zahl« zweite zahl; 

Idesche bildsdhirm; 
lies zwei zahlen eir\, 

loesche bildschlriR; 

li^$ zkfei zahlen ein: 
put ("erste Zabl = get (erste zahl); 
put (**zweite 2ahl »^); get (ztoreite zahl)* 



c) Deklarationen. Prozeduren und Anweisungen. Warden Prozeduren vereinbart. 
soilte man sie nach den Deklarationen plazieren. Danach sollten die Anweisungen 
folgen: 

< Deklarationen > ; 

< Prozeduren > ; 

< Anweisungen > 

Mehrere Prozeduren werden durch voneinander getrennt. In diesem Fall sind 
die Datenobjekte aus den Deklarationen auBerhalb von Prozeduren statisch, d.h. 
wdhrend der gesamten Laufzeit des Programm vorhanden. Solche Datenobjekte 
werden auch PACKET - Daten genannt. Im Gegensatz dazu sind die Datenobjekte 
aus Deklarationen in Prozeduren dynamische Datenobjekte, die nur wdhrend der 
Beartieitungszeit der Prozedur existieren. Innerhaib einer Prozedur durfen wieder- 
urn Refinements verwendet werden. Ein Prozedur ~ Rumpf hat also den formalen 
Auft>au wie unter a) Oder b) geschikjert. 

Die Refinements und Datenobjekte, die innerhaib einer Prozedur deklariert wurden, 
sind lokal zu dieser Prozedur, d.h. kOnnen von auBerhalb nicht angesprochen 
werden. 
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INT vAR erst^ zahl, zweita zdhl; 

PRQC vertausche (IMT VAR a* b): 
INT VAR xf 

X a; 
a iM b; 
b X 
£ND fRQC vertausche; 

put (**erste Zahl a ^^t (er6te 2ahl); 
put ('^zwitB Zaiil ='0; g«t <zweite zaftl)^ 
If erste zdhl > 2weite zahl 

THEN vertausche <ersta zahlj zweite zahl) 

fl 



d) Deklarationen, Prozeduren, Anweisungen und PACKET ~ Refinements. ZusAtzlich 
zu der M6glichkeit c) ist es eriaubt, neben den Anweisungen auBerhaib einer 
Prozedur auch Refinements zu verwenden: 

< Deklarationen > ; 
<Prozeduren> ; 

< Anweisungen > . 

< Refinements > 

Diese Refinements kOnnen nun in Anweisungen auBerhalb der Prozeduren benutzt 
werden Oder auch durch die Prozeduren (im letzteren Fall spricht man analog zu 
glot>alen PACKET -Daten auch von PACKET - Refiriements Oder globalen Refine- 
nrtents). In PACKET -Refinements durfen naturlich keine Datenobjekte verwandt 
werden, die lokal zu einer Prozedur sind. 
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lim ZM»1 zatilan ain;^ 
{^tdtisb did 2dhl6n^ 

lias zwai ziAlen ain; 

put (*£waita Zahl gat (zwita zat)l)^ 
0r«kia 4lia zAlam 

THEM vartatiacha (arata zahl^ zwaita zaHI) 
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2.6 Zusammengesetzte Datentypen 



In ELAN gibt 88 die MOglichkeit, gleichartige Oder ungleichartige Datenobjekte zu 
einem Objekt zusammenzufassen. 

2.6.1 Reihung 



Die Zusammenfassung gleichartiger Datenobjekte, wird in ELAN eine Reihung (ROW) 
genannt. Die einzelnen Objekte einer Reihung werden Elemente genannt. 

Eine Reihung wird folgendermaBen deklariert: 

- SchlOsseiwort mmm 

- Anzahl der zusammengefaBten Elemente 
(INT-Denoter oder durch LET definierter Name) 

- Datentyp der Elemente 

- Zugriffsrecht ( li» Oder mmm ) 

- Nanne der Reihung. 



nm 10 mi var feid 



Im obigen Beispiel wird eine Reihung von 10 INT - Elementen deklariert. ROW 10 INT 
ist ein (neuer, von den elementaren unterschiedlicher) Datentyp, fur den keine Opera- 
tionen definiert sind, auBer der Zuweisung. Das Accessrecht (VAR im obigen Bei- 
spiel) urxj der Name ('fekl') gilt - wie bei den elementaren Datentypen - fur diesen 
neuen Datentyp, also fQr alle 10 Elemente. 
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Warum gibt es keine Operationen auBer der Zuweisung? Das wird sehr schnell 
einsichtig, wenn man bedenkt, daB es ja sehr viele Oatentypen (zus^itzlich zu den 
elementaren) gibt, well Reihungen von jedem Datentyp gebiklet werden kOnnen: 

ROW 1 INT ROW 1 REAL 

ROW 2 INT ROW 2 REAL 

ROW maxint INT ROW maxint REAL 



ROW 1 TEXT 
ROW 2 TEXT 

ROW maxint TEXT 



ROW 1 BOOL 
ROW 2 BOOL 

ROW maxint BOOL 



Fur die elementaren INT-, REAL-. BOOL- und TEXT-Datentypen sind unter- 
schiedliche Operationen definiert. Man muBte nun fOr jeden dieser zusammengesetz- 
ten Datentypen z.B. auch *get'- und 'put' - Prozeduren schreiben, was allein vom 
Schreibaufwand sehr aufwendig wftre. Das ist der Grund dafur, daB es keine vorgege- 
bene Operationen auf zusammengesetzte Datentypen gibt. 

ZugegebenermaBen kOnnte man mit solchen Datentypen, die nur uber eine Operation 
verfOgen (Zuweisung), nicht sehr viel anfangen, wenn es nicht eine weitere vorgege- 
bene Operation gAbe, die Subskription. Sie eriaubt es, auf die Elemente einer Reih- 
ung zuzugreifen und den Datentyp der Elemente "aufzudecken". 



Form: 



Rowname Indexwert Ipi 



Beispiel: 
feld [3] 



bezieht sich auf das dritte Element der Reihung 'feld' und hat den Datentyp INT. FOr 
INT-Obiekt8 hat)en wir at)er einige Operatiorwn, mit denen wir arbeiten kOnnen. 
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f6td 131 t« 7; 

f«ld t4j :it few (3j ♦ 4j 



Eine Subskription 'schAlt' also vom Datentyp ein ROW ab und liefert ein Element der 
Reihung. Die Angabe der Nummer des Elements in der Reihung nennt man Subskript 
Oder Index (in obigem Beispiel '3*). Der Subskript wird in ELAN in eckigen Klammem 
angegeben, um eine bessere Unterscheklung zu den runden Klammern in Ausdrucken 
zu erreichen. Ein subskribiertes ROW - Datenobjekt kann also Qberall da verwendet 
werden, wo ein entsprechender Datentyp t)enOtigt wird (Ausnahme: nicht als Schlei- 
fenvariable). 



PnOC a^t (ROW 1^ im VAU f6ld): 
IfIT VAR if 

put (I)} put {^tM ^iomnt bitte;'')^ 
: >t (f^U Ul>; 

END PRQC qvt; 

PRDC put (ROW W IKT CtWST feld): 
tHX VAft it 

FQ8 i FROW 1 UPTO 10 «EP 

pat (i)} put (^t6$ £lei»6nt l^ti*'); 

put (md cm? 

£«tt> f«EP 
£«0 PftOC pirt 



In diesen Beispielen werden Reihungen als Parameter benutzt. 
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Diese bekjen Prozeduren werden im folgenden Beispiel benutzt um 10 Werte einzu- 
lesen und die Summe zu berechnen: 



10 INT VAR w«rt«; 
li^s werte etn; 
autnmlare 

drtiCke di« ^umme und eidSlt^lw^t'te. 
werte elnt 

9uinmi«re ale; 

XHT VAft duAmie Oi^ 1; 
FOR i FROW 1 UPTO 10 REP 

£ND REP, 

druckB die sunime und alnzelwerte: 
lHit (K^tte); 

put {*Sy<toiie:**)$ put (dumme). 



Da es mOglich ist. von jedem Datentyp eine Reihung zu biiden, kann man naturlich 
auch von einer Reihung eine Reihung bilden: 



nm 5 w int var matrix 
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Fur eine 'doppelte' Reihung gilt das fOr "einfache" Reihungen gesagte. Wiederum 
existieren keine Operationen fur dieses Datenobjekt (auBer der Zuweisung), jedoch ist 
es durch Subskription mOglich, auf die Elemente zuzugreifen: 

matrix [3] 

liefert ein Datenobjekt mit dem Datentyp ROW 10 INT. 
Subskribiert man jedoch 'matrix' nochmals, so erhdlt man ein INT: 
matrix [2] [8] 

(jede Subskription "schAlt" von AuBen ein ROW vom Datentyp ab). 
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2.6.2 Struktur 



Strukturen sind Datenverbunde wie Reihungen, aber die Komponenten kOnnen unglei- 
chartiQe Datentypen haben. Die Komponenten von Strukturen heiBen Fekler (Reihun- 
gen: Elenfiente) und der Zugriff auf ein Feld Selektlon (Reihungen: Subskription). Eine 
Struktur ist - genauso wie bei Reihungen - ein eigener Datentyp, der in einer 
Deklaration angegeben warden muB. 

Die Deklaration einer Struktur sieht folgendermaSen aus: 

- SchiQsselwort ISiiliQii 

- unterschiedliche Datenobjekte in Klammern. Die Datenobjekte werden mit Datentyp 
und Namen angegeben 

- Zugriffsrecht ( Oder 001^ ) 

- Hame der Struktur. 



STRtiCT (TEXT naM, INT altar) VAA ich 



Wiederum existieren keine Operationen auf Strukturen auBer der Zuweisung und der 
Selektion, die es eriaubt, Komponenten aus einer Struktur herau8zul6sen. 

Die Selektion hat folgende Form: 

Ot)jektname lii Fekjname 

Beispiele: 

ich . name 
ich . alter 

Die erste Selektion liefert einen TEXT-, die zweite ein INT-Datenobjekt. Mit diesen 
(selektierten) Datenobjekten kann - wie gewohnt - gearbeitet werden (Ausnahme: 
nicht als Schleifenvariable). 
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Zum Datentyp einer Struktur gehOren auch die Feldnamen: 



STRUCT <rCXT prodakt nm^t IHT di'tiki^l rtr) VAR erz^ti^nift 



Die obige Struktur ist ein anderer Datentyp als im ersten Beispiel dieses At)schnitts, 
da die Namen der FekJer zur Unterscheidung hinzugezogen vyerden. Fur Strukturen - 
genauso wie bei Reihungen - kann man sich neue Operationen definieren. 

Im folgenden Programm warden eine Struktur, die Personen beschreibt, die Prozedu- 
ren 'put*, 'get' und der dyadische Operator HEIRATET definiert. AnschlieBend werden 
drei Paare verHEIRATET. 



PROC get (STRUCT (TJEXT name, vornwws, IKT alter) VAR p); 

put {*^kXti^ ^atti^m^i^ii q^t ( f>«v6rnam^>; 
put {♦'bittft Alter a«t ( p^,alter)j 

Una 

PRDC 9et; 

PRCHD put (STRUCT (TEXT muna, vorname, lUX altar) CONST pyt 

put (p.vOTnama);; put <p«nBma>; 

put (♦'iat*)? 

put (p.ait^r)^ 

put C'MMfa «lt">} 

iina 
im PftOC put; 

(M» ffilRATET 

<STflyeT <TeXT nana, votmmm^ INT altar) vm 
STRUCT iJtXl nmfmf voriwHua, im altar) CQH^T p)? 

^^nM^ t« ii«naitiia 
£HD («P MEIRATETj 
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mn 3 STRUCT (T£XT ttO*^, vtttntoe, IKT l^lt^r) VAR frdu, 

paraonerKiAtOT ainleaanf 

paaffdatan aujagsban* 

paracviamlatan aiflleaan: 
INT it 

FOB i FROM 1 UPTO 3 «CP 
g^t (fm [ID; 
gat (mnn Ci)) 

FOR i f RCW 1 UPTO 1 REP 

EHO REP, 

paftrdatim auagafian: 

F0<» i fWm 1 UPTO 3 R?P 
put <frau U}>; 

littt ("•hat ^^h6itat*t-***); lift^j 
put <aann Cl}); Una 



Reihungen und Strukturen dOrfan miteinander kombiniert warden, d.h. as dart eina 
Raihung in ainar Struktur arschainan odar as darf aina Raihung von ainar Struktur 
vorganomman wardan. Salaktion und Subskription sind in diasan FAIIan in dar Raihan- 
folga vorzunahman, wia dia Datantypan aufgabaut wurdan (von auBan nach innan). 
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2.6.3 LET-Konstrukt fur 

zusammengesetzte Datentypen 

Die Verwendung von Strukturen Oder auch Reihungen kann manchmal schreibauf- 
wendig sein. Mit dem LET-Konstrukt darf man Datentypen einen Namen geben. 
Dieser Name steht als Abkurzung und verringert so die Schreibarbeit. Zusatzlich wird 
durch die Namensgebung die Lesbarkeit des Programms erhOht. 

Form: 

IHii Name m- Datentyp 

Der Name darf nur aus GroBbuchstaben (ohne Blanks) bestehen. 



LET PERSON ^ ST«OCT (TEXT rwime, vorname, INT alter); 

P«DC get <P£«SON VAR p>: 

put (*^bitte NachFMime;*^); get ( p^nawe); 

put (**t>itte Vprr>aTOi**); g^t ( ptvomeme); 

put (*»bitt# Alteti*); get ( p*alter)^ 

line 
EWP PTOC get-r 

PRfltC put (P£«SOM COWST p): 

put <pwV€irnaw»)| put (p. name); put (*iat*'); 

put <p, alter); put (*^Jatiire alt*^); line 
ewO woe puti 

OP HEIRATET (PE«SDH VAR PERSON CONST wr): 

f^neme m^name 
m OP HEXftATCT, 

im ^ PERSON VAR mann, frau; 
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Oberall, wo der abzuktirzende Datentyp verwandt wird, kann stattdessen der Name 
PERSON benutzt warden. Wohlgemerkt: PERSON ist kein neuer Datentyp. sondern 
nur ein Name, der f(jr STRUCT (....) steht. Der Zugriff auf die Komponenten des 
abgekOrzten Datentyps bleibt erhalten (was be\ abstrakten Datentypen, die spdter 
erklArt werden, nicht mehr der Fall ist). 

Neben der Funktion der AbkQrzung von Datentypen kann das LET - Konstrukt auch 
zur Namensgebung fOr Denoter verwandt werden (siehe 2.3.1.2). 

2.6.4 Denoter fiir zusammengesetzte 
Datentypen (Konstruktor) 

Oft ist es notwendig. Datenverbunden Werte zuzuweisen (z.B.: be! der Inltialislerung). 
Dies kann durch normale Zuweisungen erfolgen: 



LET PEmm ^ STUUCT (TEXT name, vorfwime, I»T alter >j 
Mftnti.yficrmuM^ its ^nQM^t 

wanft,afItT 27 



Eine andere MOglk:hkeit fOr die Wertbesetzung von Datenverbunden ist der Konstruk- 
tor: 

Form: 

Datentyp H HI W^rtliste ip 
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In der Wertliste wird fOr jede Komponente des Datentyps. durch Kommata getrennt, 
ein Wert aufgefOhrt. Besteht eine der Komponenten wiederum aus einem Datenver- 
bund, muB innerhalb des Konstruktors wiederum ein Konstrulctor eingesetzt werden. 



Let f^ltSOl^ s Sim^CT (TEXT naflM^, vdrnaM6, tm ^XUt}} 
fjrdu Ptfim t ( *6ch»it2«*, '•li^e**, 25); 



Ein Konstrulctor ist also ein Mechanismus, urn ein Datenobjekt eines Datenverbundes 
in einem Programm zu notieren. 

Konstruktoren sind natOrlich fOr Reihungen auch mOglich: 



7 IHX VAft mtki 
few :r mn* 7 1«T ; ( I, Z, 4, 5, 6, 7)f 
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2.7 Abstrakte Datentypen 



2.7.1 Definition neuer Datentypen 



Im Gegensatz zur LET - Vereinbarung fur Datentypen, tsei der lediglich ein neuer 
Name fur einen twreits vorhandenen Datentyp eingefUhrt wird und bei der somit auch 
keine neuen Operationen definiert werden mussen (well die Operationen fur den 
at>zuk(jrzenden Datentyp verwandt werden k6nnen), wird durch eine TYPE-Verein- 
t)arung ein gAnzlich neuer Datentyp eingefuhrt. 

Form: 

IWB. Name m Feinstruktur 

Der Name darf nur aus GroBkMJChstaben (ohne Blanks) bestehen. Die Feinstruktur 
(konkreter Typ, Realisierung des Datentyps) kann jeder bereits definierte Datentyp 
sein. 



Der neudefinierte Datentyp wird abstrakter Datentyp genannt. Im Gegensatz zu 
Strukturen und Reihungen stehen fOr solche Datentypen noch nicht einmal die Zuwei- 
sung zur Verfugung. Ein solcher Datentyp kann genau wie alle anderen Datentypen 
verwendet werden (Deklarationen, Parameter, wertliefernde Prozeduren, als Kompo- 
nenten in Reihungen und Strukturen usw.). 
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Wird der Datentyp uber die Schnittstelle des PACKETS anderen Programmteilen zur 
VerfQgung gesteilt, so mQssen Operatoren und/oder Prozeduren fOr den Datentyp 
ebenfails "herausgereicht" werden. Da dann der neudefinierte Datentyp genauso wie 
alle anderen Datentypen verwandt werden kann. aber die Komponenten (Feinstruktur) 
nicht zugdnglich sind» spricht man von abstrakten Datentypen. 

Welche Operationen soliten fur einen abstrakten Datentyp zur Verfugung stehen? 
Obwoht das vom Einzelfall abhAngt, werden meistens folgende Operationen und 
Prozeduren definiert: 

- 'get'- und 'put' - Prozeduren. 

- Zuweisung (auch fOr die tnitialisierung notwendig). 

- Denotierungs-Prozedur (weil kein Konstruktor fOr den abstrakten Datentyp auBer- 
halb des definierenden PACKETS zur Verfugung steht) 
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2.7.2 Konkretisierung 



Urn neue Operatoren und/oder Prozeduren fOr einen abstrakten Datentyp zu schrei- 
ben, ist es mOglich, auf die Komponenten des Datentyps (also auf die Feinstrulctur) 
mit Hilfe des Konkretisierers zuzugreifen. Der Konkretisierer arbeitet dhnllch wie die 
Subskription Oder Selektion: er ermOgiicht eine typmaBige Umbetrachtung vom ab- 
strakten Typ zum Datentyp der Feinstruktur. 

Form: 

OQIieil. i Ausdruck Ip 



TVPC MOItAT « IHT; 

P«OC put (MQHAT ami »): 

put < CQNCR <A» 
END PfiOC put; 



Der Konkretisierer ist bei Feinstrukturen notwendig, die von elementarem Datentyp 
sind. Besteht dagegen die Feinstruktur aus Reihungen Oder Strukturen, dann wird 
durch eine Selektion Oder Subskription eine implizite Konkretisierung vorgenommen. 



TVPC LISTC mf IQ& IWT; 
LIST£ VAf^ pereoTMil mtmaet; 
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2.7.3 Denoter fur abstrakte 

Datentypen (Konstruktor) 

Denoter fUr neudefinierte Datentypen werden mit Hilfe des Konstruktors gebiidet: 
Form: 

Datentyp ( Wertliste 

In der Wertliste wird fOr jede Komponente des Datentyps, durch Kommata getrennt. 
ein Wert aufgefOhrt. Besteht eine der Komponenten wiederum aus einem Datenver- 
bund. mu6 innerhalb des Konstruktors wiederum ein Konstruktor eingesetzt werden. 



TYPE GEHALT ± IHl; 

GEHAtT VAR meirw GEHALT : ( 10000); 

Besteht die Feinstruktur aus einem Datenverbund, muB der Konstruktor u.U. mehrfach 
geschachtelt angewandt werden: 



TVPC KOMPLEX ^ ROW 2 REAL; 

KOMPLEX COHST x KOHPiEX : ( ROW 2 REAL : ( 1,0, 2-0»; 

Auf die Feinstruktur Qber den Konkretisierer eines neudefinierten Datentyps darf nur in 
dem PACKET zugegriffen werden, in dem der Datentyp definiert wurde. Der Konstruk- 
tor kann ebenfails nur in dem typdefinierenden PACKET verwandt werden. 
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gety put: 

TVP£ WItMEBSTAND * INT; 

OP {WIDE«STAWO VAR 1, VICKER&TAHD COKST r): 
CHD OP 

PROC 9«^t (WIDER&TANO VAfT w>s 

^ ti^ l^lfiEHSTAtlD : (1> 
Em PRDC 9»t; 

PRDC pot <!iFIO£l«STAND CONST 

put ((^MCft (m)) 
€ND P8DC ptft; 

WIDCHSTAfiO OP REIHE (WIOERSTANO CONST 1» r): 
C»0 OP fWEIWE; 

WIOE«STAN0 OP PARALLEL <WII>E«STANO CONST 1, r): 

((COHCR (1> * CONOR <r» OIV (COTCR <!} ^ CGHCR (r))) 
m> OP MRALi£l 

END PACKH wtdfti^&tMi^^ 
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Dieses Programm realisiert den Datentyp WIDERSTAND und mit den Operationen 
eine Fachsprache, mit dem man nun leicht WIDERSTANDs - Netzwerke berechnen 
kann, wie z.B. folgendes: 




Zur Berechnung des Qesamtwiderstandes kann nun folgendes Programm geschrieben 
werden: 









wid»r«t««ncHi elnlasm; 








fiirgffbnl^ ausgeben. 




widerstaende einlesen: 




tm VAft it 




FDR i Ffm I UPTO 7 RE? 




put <**bitt6 wid6rst#rtd ft**); put (i); put 




get <r it}); 




END ft£P. 




$^6dAtwid4^r6tai>d bei^^trhctent 




WIDE«STA«0 CONST rgesawt (r [1} PARALLEL r 


t23) REIME 


t [3] (t {41 PARALLEL t [5] PAftALL£L t 




PARALLEL r {Tj), 




«Tgttt>nia auagebon: 




line; 




put (TQMamt), 
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2.8 Dateien 



Dateien werden benOtigt, wenn 

- Daten uber die Abarbeitungszeit eines Programms aufbewahrt werden solten; 

- der Zeitpunkt Oder Ort der Datenerfassung nicht mit dem Zeitpunkt Oder Ort der 
Datenverarbeitung Qbereinstimmt; 

- die gesamte Datenmenge nicht auf einmal in den Zentralspeicher eines Rechners 
paBt; 

- die Anzahl und/oder Art der Daten nicht von vornherein bekannt sind. 

Eine Datei ("file") ist eine Zusammenfassung von Daten. die auf Massenspeichern 
aufbewahrt wird. Dateien sind in bestimmten Informationsniengen, den Sdtzen ("re- 
cords') organisiert. 



2.8.1 Datentypen FILE und DIRFILE 



In ELAN gibt es zwei Arten von Dateien. Sie werden durch die Datentypen FILE 
und DIRFILE realisiert: 



FILE: 

sequentielle Dateien. Die SAtze kdnnen nur sequentiell gelesen bzw. geschrieben 
werden. Eine Positionierung ist nur zum ndchsten Satz mOglich. 

DIRFILE: 

indexsequentielle Dateien. Die Positionierung erfolgt direkt mit Hilfe eines SchlOsseis 
("key") Oder Index, kann aber auch sequentiell vorgenommen werden. 

Wichtig: 

DIRFILEs sind auf dem EUMEL- System standardm&Big nicht implementierti Deswe- 
gen wird auf diesen Dataityp hier nicht weiter eingegangen. 
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2.8.2 Deklaration und Assoziierung 



Dateien mUssen in einem ELAN - Programm - wie alio anderen Objekte auch - 
deklariert warden. 

Form: 

i^m^ Myi intemer Dateibezeichner 



FILC VAR f 



Dabei ist zu beachten, daB im EUMEL - System alle FILEs als VAR deklariert werden 
mussen, denn jede Lese/Schreib- Operation verdndert einen FILE. 

Dateien werden normalerwelse vom Betrlebsystem eines Rechners aufbewahrt und 
verwaltet. Somit Ist eine Verbindung von eInem ELAN - Progrcunm, in dem eine Datei 
unter einem Namen - wie jedes arxtere Datenobjekt auch - angesprochen werden 
soil, und dem Betriebssystem notwendig. Dies erfoigt durch die sogenannte Assozi- 
ierungsprozedur. Die Assoziierungsprozedur 'sequential file' hat die Aufgabe, eine in 
einem Programm deklarierte FILE VAR mit einer bereits vorhandenen Oder noch 
einzurichtenden Datei des EUMEL -Systems zu koppeln. 

Form: 

miimmm t Betrlebsrlchtung, Dateiname Ip 
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Es gibt folgende Betriebsrichtungen (TRANSPUTDIRECTIONs): 

input: 

Die Datai kann vom Programm nur gelesen warden. Durch 'input' wird bei der Asso 
ziierung automatisch auf den ersten Satz der Date! positioniert. 1st die zu lesende 
Datei nicht vorhanden, wird ein Fehler gemeldet. 

output: 

Die Datei kann vom Programm nur beschriet)en werden. Durch 'output' wird be'\ der 
Assoziierung automatisch hinter den letzten Satz der Datei positioniert (t)ei einer 
leeren Datei also auf den ersten Satz). 1st die Datei vor der Assoziierung nicht vor- 
handen, wird sie automatisch eingerichtet. 

modify: 

Im EUMEL- System gibt es noch die Betriebsrichtung 'modify'. 
Die Datei kann vom Programm in beliebiger Weise gelesen und beschrieben werden. 
Im Qegensatz zu den Betriek>srichtungen 'input' und 'output', bei denen ausschiieBlich 
ein rein sequentielles Lesen Oder Schreiben eriaubt ist, kann bei 'modify' beiiebig 
positioniert, gelOscht, eingefugt und neu geschrieben werden. 

Nach erfolgter Assoziiierung ist auf den zuletzt bearbeiteten Satz positioniert. Die 
Datei wird automatisch eingerichtet, wenn sie vor der Assoziierung nicht vorhanden 
war. 
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Der zweite Parameter der Assoziierungsprozedur gibt an, unter welchem Namen die 
Datei in der Task existiert Oder eingerichtet werden soil. 



FILE VAR weine datei sequential file < output, '^xyz^); 



Folgendes Beispiel zeigt ein Programm, welches eine Datei liest und auf dem Ausga- 
bemedium ausgibt: 



FILE VA« f sequential file < input, ^deteil^)^ 

TCXT VAR satz; 

WMILC NOT eof (f) M? 

getline (f , 6dtz>; 

putilne <eatz); 



Eine genau Ubersicht der fur Dateien existierende Operatoren und Prozeduren finden 
Sie im Teil 5.3. 
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2.9 



Abstrakte Datentypen 
im EUMEL- System 



2.9.1 



Datentyp TASK 



Tasks mussen im Rechnersystem eindeutig identifiziert werden; sogar im EUMEL- 
Rechner-Netz sind Tasks eindeutig identifizierbar. Dazu wird der spezielte Datentyp 
TASK' benutzt, denn die kjentifizierung einer Task uber den Nanien ist nicht eindeu- 
tig. Der Benutzer kann ja einen Tasknamen Sndern, eine Task lOschen und eine 
neue Task mit gieichem Namen einrichten, die jedoch nicht gleich reagiert. Somit 
werden Tasks eindeutig uber Variablen vom Datentyp TASK ktontifiziert. 



TASK VAR plottet := U6k {^PlDTTEn 1**) 



Die Taskvariable 'plotter' t)ezeichnet jetzt die Task im System, die augenblicklich den 
Namen "PLOTTER 1" hat. Die Prozedur 'task* liefert den system internen Taskbe- 
zeichner. 

Nun sind Taskvariablen auch unter Berucksichtigung der Zeit und nicht nur im aktuel- 
len Systemzustand eindeutig. Der Programmierer braucht sich also keine Sorgen 
daruber zu machen, daB seine Taskvariable irgendwann einmal eine "falsche* Task 
(nach LOschen von "PLOTTER 1" neu eingerichtete gleichen Oder anderen Namens) 
identifiziert. Wenn die Task "PLOTTER 1" gelOscht worden ist, bezeichnet 'plotter' 
keine gUltige Task mehr. 

Unbenannte Tasks haben alle den Pseudonamen " - ". Sie kdnnen nur uber Taskvari- 
ablen angesprochen werden. 
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TASK VAR 9on; 

PROC ahutup manager: 
disable dtdpi 
coamnnct ilittltygue <T8yE)| 

IF ya» (♦'ahutup^) 
imu trli^ar ^tt^tt 
ahutup 



Ein Taskvariable wird zum Beispiel als Parameter fur die Prozedur 'begin' benOtigt. 

PROC begin (TEXT CONST son name, PROC start 
TASK VAR new taak) 

Die Prozedur richtet eine Sohntask mit Namen 'son name' (im Beispiel: shutup) 
ein, die mit der Prozedur 'start' (im Beispiel: shutup manager) gestartet wird. 'new 
task' (im Beispiel: son) klentifiziert den Sohn. falls die Sohntask korrekt eingerk^h- 
tet wurde. 
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2.9.2 Datentyp THESAURUS 



Ein Thesaurus ist ein Namensverzeichnis, das bis zu 200 Namen beinhatten kann. 
Dabei muB jeder Name mindestens ein Zeichen und hOchstens 100 Z^ichen lang sein. 
Steuerzelchen (code < 32) werden im Namen folgendermaBen umgesetzt: 

stouBmUhsn wird umgesetzt in + oode(8muefzeichen) 

Ein Thesaurus ordnet Jedem eingetragenen Ncmien einen Index zwischen 1 und 200 
(einschliefilich) zu. Diese Indizes bieten dem Anwender die Mdglichlceit, Thesauri zur 
Verwaltung benannter Objekte zu verwenden. (Der Zugriff erfolgt dann Uber den Index 
eines Namens in einem Thesaurus). So werden Thesauri u.a. von der Dateiverwaltung 
benutzt. Sie bikton die Grundlage der ALL- und SOME - Operatoren. 



^beite thes:autti« nib. 

TICSMimiS VAR elm auftWfthl zt SOME (ntyMlf); 
?£XT VAR theseurw elementf 
m VAIt ittde^ it 9. 

9»t <«ifNi «iMiw«hI» theAAUfua ^IfNuont, inii»x>| 
If the^enirw i^l^went »• *"* 

WEH L£AVE ttTbelte thMsauriift 

fit#hr# ektionen 4kittht 

pmi^fmm ithtmmtum «ieMat); 
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Dieses Beispiel fUhrt fUr eine Auswahl der in der Task befindlichen Dateien nachein- 
ander die Kommandos 'edit', 'lineform', 'pageform' und 'print' aus. 

Die k)enutzten Operatoren und Prozeduren leisten folgendes: 
THESAURUS OP SOME (TASK CONST task) 

Der Operator bietet das Verzeichnis der in der angegeben Task befindlichen 
Dateien zum Editieren an. Namen, die nicht gewQnscht sind, mussen aus dem 
Verzeichnis gelOscht werden. 



PROG get (THESAURUS CONST t. TEXT VAR name. INT VAR index) 
Die Prozedur liefert den n^ichsten Eintrag aus dem angegebenen Thesaurus 't*. 
'NAchster' heiBt hier, der kleinste vorhandene mit einem Index grOSer ais 'index*. 
Dabe\ wird in 'name'der Name und in 'index'der Index des Eintrags geliefert. 
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2.9.3 Datenraume 



DatenrAume sind die Grundlage von Dateien im EUMEL - System. Einen Datenraum 
kann man sich als eine Sammlung von Daten vorstellen (u.U. leer). Man kann einem 
Datenraum durch ein Programm einen Datentyp 'aufprdgen*. Nach einem solchen 
"AufprAge'-Vorgang kann der Datenraum wie ein "normaler" Datentyp k^ehandelt 
werden. 

Standarddateien (FlLEs) sind eine besondere Form von Datenr&umen. Sie kOnnen nur 
Texte aufnehmen, da sie ja hauptsdchlich fOr die Kommunikation mit dem Menschen 
(vorwiegend mit Hilfe des Editors bzw. Ein-/ Ausgat)e) gedacht sind. Will man Zahlen 
in einen FILE ausgeben. so mOssen diese zuvor in Texte umgewandelt werden. Hier- 
fur stehen Standardprozeduren zur VerfOgung (z.B. 'put (f, 17)'). 

Will man aber Dateien zur Kommunikation zwischen Programmen verwenden, die 
gro6e Zahlenmengen austauschen, verursachen die Umwandlungen von Zahlen In 
TEXTe und umgekehrt unndtigen Rechenaufwand. Zu diesem Zweck werden im 
EUMEL- System Datenrdume eingesetzt, die es gestatten, beliebige Strukturen 
(Typen) in Dateien zu spek:hem. Solche DatenrAume kann man weder mit dem Editor 
noch mit dem Standarddruckprogramm (print) bearbeiten, da diese ja den Typ des in 
dem Datenraum gespeicherten Objektes nicht kennen. 
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2.9.3.1 Datentyp DATASPACE 



DatenrAume kOnnen als eigener Datentyp (DATASPACE) in einem Programm tsehan- 
delt warden. Somit kOnnen DatenrAume (als Ganzes) ohne Kenntnis eines eventuell 
(vorher Oder spAter) aufgeprftgten Typs benutzt werden. 

Als Operationen auf DATASPACE - Objekte sind nur Transporte, LOschen und Zuwei- 
sung zugelassen. 



DATASPACE VAA <to 



FQr DatenrAume ist die Zuweisung definiert. Der Zuweisungsoperator (':«') bewirkt 
eine Kopie des Datenraums vom rechten auf den linken Operanden. 



DATASPACE VAR ifatenraum ; : nllspaeei 



Die Prozedur 'nilspaoe' liefert einen leeren Datenraum. Der Datenraum *datenraum' ist 
also eine Kopie des leeren Datenraums. 

Die Prozeduren und Operatoren fOr DatenrAume werden im Teil 5.4.7 beschrieben. 
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2.9.3.2 BOUND - Objekte 



Wie bereits erwdhnt, kann man einem Datenraum einen Datentyp aufprdgen. Dazu 
warden BOUND - Objekte benutzt. Mit dem Schlusselwort ililllii^i, welches in der 
Deklaraticxi vor den Datentyp gestellt wird, teilt man dem ELAN - Compiler mit, daB 
die Werte eines Datentyps in einem Datenraum gespeichert sind bzw. gespeichert 
werden sollen. 



mm fm idoo mal ^ah Uste 



Die Ankopplung des BOUND - Objekts an eine Datei erfolgt mit dem Operator . 
Form: 

BOUND -Objekt iM^^^^ Datenraum 



BOUND fm 1000 «£AL VAR 9«halt»li»tB new (^Gehalter'') 



Die Prozedur 'new' kreiert dabei einen leeren Datenraum (hier mit dem Namen 'Ge- 
hditer'), der mit Hilfe der Zuweisung (hier: Initiaiisierung) an die Variable 'gehaltsliste' 
gekoppelt wird. 
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Nun kann man mit der 'gehaitsiiste' arbeiten wie mit alien anderen Feldem auch. Die 
Daten, die in 'gehaitsiiste' gespeichert. werden eigentiich im Datenraum 'Gehftlter' 
abgelegt. 



9ehflItsIiAt« {index} INCA 200,0; ^) 



Man kann auch Prozeduren schreiben, die auf der Gehaitsiiste arbeiten. 



PmC sort 1000 ftCAt VA« lista): 

tm PmC sort; 

sort (CQHtn (gehdltslist^)); 



Man beachte, da6 der formale Parameter der Prozedur 'sort' nicht mit BOUND spezi- 
fiziert werden darf (BOUND wird nur bei der Deklaration des Objekts angegeben). Das 
ist Obrigens ein weiterer wichtiger Vorteil von BOUND -Objekten: man kann alle 
Prozeduren des EUMEL -Systems auch fur BOUND - Objekte verwerxjen, nur die 
Datentypen mOssen naturlich Obereinstimmen. 
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Haufige Fehier bei der Benutzung von Datenraumen 



- Wenn man an ein DATASPACE - Objekt zuweist (z.B.: DATASPACE VAR ds :» 
new ("noein datenraum')), so erh&tt man, wie bereits erwdhnt, eine Kopie des 
Datenraums in 'ds*. Koppelt man jetzt 'ds' an ein BOUND -Objekt an und fuhrt 
Anderungen durch, so wirken diese nur auf die Kopie und nicht auf die Quelle. 
FOr Anderungen in der Quelle, also in der vom Datei - Manager verwalteten Datei, 
ist stets direkt anzukoppeln. 



BOUND ROW IHl VAR reih#) 
IHT VAR i} 

PROG zeige dsinhalt (TEXT CONST detenrauw) ; 

BOUND ROW 10 IHT VAR inhalt old (datenrauiit} ; 

INT VAR 4; 

line} 

putline i^ln^alX;^ + deteoreup)? 
FOR J FROH 1 Uf»T0 10 REP 
put Unhftlt (4)) 

PER 

(* felsch; ^9 «uf <fer Kopie gearteitet? ♦) 
DATASPftOE VAR da mw («<»eaenfaeiapieli lahlen 1 bi» 10»); 
reilw ?a ds; 
jbestttze rellM»; 

{♦ ricHti^; e« wi?d mf Det«n?auw ^ea^plJ^itet^ *) 
reihe new (^^isp^lfil^ Zahlen I bis 10^)^ 
l>e8etze r9it>«; 

zeige deinhslt CBeiftpiel: Zahlen 1 bis 10^). 

bes«tze reitu»: 

PAR i FROM 1 OPTO 10 REP 

r^thE (i) la i 
PER, 
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Der Datenraum 'Qegenbeispiel: Zahlen 1 bis 10' wird nicht mit Werten besetzt, 
sondern die Kopie dieses Datenraums, der unbenannte Datenraum 'ds'. Auf dem 
direkt angekoppelten Datenraum 'Beispiel: Zahlen 1 bis 10' werden die Werte 
gespeichert. 



- Wenn man ein DATASPACE - Objekt benutzt. ohne den Datei - Manager zu 
verwenden, so muB man selbst dafOr sorgen, dafi dieses Objekt nach seiner 
Benutzung wieder gelOscht wird. Das LOschen geschieht durch die Prozedur 
'forget'. Ein automatisches uyschen von DATASPACE-Objekten erfolgt nicht bei 
Programmende (sonst kdnnten sie ihre Funktion als Datei nicht erfQIIen). Nur 
durch 'forget' Oder beim LOschen einer Task werden alle ihr gehOrenden 
DATASPACE - Objekte geldscht und der belegte Speicherplatz f reigegeben. 



- Pernor ist zu beachten, daB vor der Ankopplung an ein BOUND -Objekt das 
DATASPACE -Objekt initialisiert wird (im.Normalfall mit 'nilspaoe'). 



DATASPACE VAiR <l9 :^ nlUpace; 
r^al feid {index} wi^rt^ 

dawit dter Platz wieder verwwdet wird ♦) 
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- Will man auf die Feinstruktur eines BOUND -Objekts zugreifen, so muB man 
strenggenommen den Konkretisierer benutzen: 

Fomi: 

iiiPilS^i ifi Ausdruck :p 

Der Konkretisierer ermOglicht eine typmdBige Umbetrachtung vom BOUND - Objekt 
zum Datentyp der Feinstruktur. 1st der Zugriff jedoch eindeutig, so wird 'CONOR' 
automatisch vom Compiler ergAnzt. 



fiCttM> IHJ WW i :i oldf <n-W«rt'*); 

If X < 0 
£iS£ Cmtn (1) 



In diesem Beispiel muB der Konkretisierer benutzt werden, da sonst der Resultattyp 
des Refinements nicht eindeutig ist (BOUND Oder INT7). 
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2.9.3.3 Definition neuer Dateitypen 



Durch die DatenrAume und die Datentyp- Definition von ELAN ist es fur Programmie- 
rer relativ einfach, neue Datei - Datentypen zu definieren. In der Regel reicht der 
Datentyp FILE fur 'normale' Anwendungen aus. jedoch kann es manchnial sinnvoll 
und notwendig sein, neue Datei-Typen fur s|3ezielle Aufgat)en zu definieren. 

In diesem Abschnitt soli an dem Beispiel DIRFILE (welcher zwar im ELAN - Standard 
definiert, aber nicht im EUMEL -System realisiert ist) gezeigt werden, wie ein neuer 
Datei- Datentyp definiert wird: 
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PACKtT dirfilea DEFINES DIRFILE, i^r <JxrfiIe, ^etlifw, 
LET ttax«irtt ^ IClOO; 

TYP€ DI«riLE 8QUND ftOM^ m^&it^ TEXTj 

(♦ OlfiFILE b»»t«ht aus T£XT«n; Zugriff erfolgt ueber einer 

OP {mWlLl VAR de»t, DATASPACE C0H5T sroto); 
Em OP 

DATASPACC Pf^C dirfile (TEXT CMST f\me)t 
IF exists (name) 

ELSE <naae) 

C«D Pf«Kr dipf lie; 

PROG ^jetline (PJ«FIU CONST df » INT CONST iml^x, 
TEXT VAft t^ttrrd): 

Tf(EN «rr0r»top (**acces6 before first rticord^) 
ELIF ifHtex > max^ize 

T^N arr<i£tttfi|i af t^t laat ree^x^d'*) 

EtSE record df (intdex} 

P80C getlina; 

PTOC putlifw (OlflFIU CONST df , IHT CONST index, 
TEXT VA« r#tt6rd)t 

END PfiOC |MitlirM»$ 

END PACKET dlrfilea; ; 
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Die Prozedur 'dirfile' ist die Assoziierungsprozedur fOr DIRFILEs (analog 'sequential 
file' bei FILEs). 'dirfile' liefert entweder einen bereits vorhandenen Datenraum Oder 
richtet einen neuen ein. Urn eine Initialisierung mit der 'dirfile' - Prozedur vorneh- 
men zu kOnnen, braucht man auch einen Zuweisungsoperator, der den Datenraum an 
den DIRFILE - Datentyp koppelt. 

Zugriffe auf einen DIRFILE sind nun relativ einfach zu schreiben. Im obigen Beispiel 
wird nur die Prozedur 'getline' gezeigt. 

Nun ist es mOglich, Programme zu schreiben, die den DIRFILE - Datentyp benut- 
zen. 



DllSFitE VAR Ideuf^r dittile {^H$tht von But^thdl^haudert^); 
INT VAR mMWiter; 
TEXT VAR ndn^i 



REP 

put (^StflrtflMimB»r bltte;^); 

tl«t (nuflttiet^); 

line; 

put (^Heoft (tes Laeuf«t6:"^)i 
line 
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2.9.4 Datentyp INITFLAG 



Im Multi - User - System ist es oft notwendig, Pakete t)eim EInrichten einer neuen 
Task in dieser neu zu initialisieren. Das muB z.B. bei der Dateiverwaltung gemacht 
werden. da die neue Task ja nicht die Dateien des Vaters erbt. Mit Hitfe von 
INITFLAG -Objekten kann man zu diesem Zweck feststellen, ob ein Paket in dieser 
Task schon Initiaiisiert wurde. 



TYPE INITFLAG 

Eriaubt die Deklaration entsprechender Fiaggen. 



OP :- ONITFLAG VAR flag. BOOL CONST fta^true) 

Eriaubt die Initialisierung von INITFLAGs 



BOOL PROC initi&Uzed (INITFLAG VAR ftag) 

Wenn die Flagge in der Task A auf TRUE Oder FALSE gesetzt wurde. dann liefert 
sie beim ersten Aufruf den entsprechenden Wert, danach immer TRUE (in der 
Task Al). 

Beim Einrichten von Sdhnen wird die Flagge in den Sohntasks automatisch auf 
FALSE gesetzt. So wird erreicht, daB diese Prozedur in den neu eingerk^hteten 
SOhnen und Enkeltasks genau beim ersten Aufruf FALSE liefert. 
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PAC^a stdck DEFINES pu^h, pdpt 

IHXTfLAa VAR irt thi6 tddk :« FALSE ; 
IHT VAR »tftck pointer f 

FnQC liush <it<T CdHST Vdlu^> : 

lniiidii2^ dtack if n^cedsaty ; 

END PRQC pu«t^ J 

PROC pop (IffT VA« value) : 

initialize atack if naceaaary ; 

£HD PftOC pap 

initialise atacsk if netxa^^ary t 
IF fWJT initialized (in ttnia task) 
THEII stack pdintet :s 0 

£t«>. PACKET $tirck 
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TEIL 3: Der Editor 



Mit dem EUMEL - Editor steht fur den Teil der Programmierung» der aus der Eingabe 
von Programmtext besteht. dasselbe komfortable Werkzeug zur Verfugung, wie fur die 
Textverarbeitung. Merknnale des EUMEL - Editors sind die einfacfie Fenstertechnik 
und die Qbersichtiiche Bedienung durch wenige Funktionstasten. 

Eine mit dem Editor erzeugte Textdatei ist maximal 4075 Zeilen lang, die maximale 
Breite einer Zeile betrftgt 16000 Zeichen. 



3.1 Ein- und Ausschalten des Editors 



Der Editor wird eingeschaltet durch Eingabe von: 



edxt (^<fateinam0'') 



Falls eine Datei unter dem eingegebenen Namen existiert» wird ein Fenster auf dieser 
Datei an der Stelle ge<yffnet, an der zuletzt ein Zugriff auf diese Datei stattfand. 

Existiert noch keine Datei unter dem angegebenen Namen in der Task, folgt eine 
Anfrage, ob eine Datei unter dem eingegebenen Namen neu eingerichtet werden soli: 
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Die Abfrage dient der Kontrolie der Schreibweise. Man kann ggf. das Einrichten dor 
Datei ablehnen, den Dateinamen verbessern und das Kommando erneut geben. 

Bei korrekter Schreibweise bejahen Sie die Kontrollfrage ^^mit 



Es erscheint ein leerer EditorbikJschirm. Die oberste Zeile des Biidschirms ist die 
Titelzeile. In ihr kann nicht geschrieben werden. Sie zeigt jedoch verschiedene nOtz- 
liche Dinge an: den Namen der Datei, die Nummer der aktuellen Zeile, in der gerade 
geschrieben wird, Tabulatormarken, EinfOgemodus, Lernmodus usw. 



iBile 1 



Wollen Sie die Schreibarbeit beenden und den Editor ausschalten, so drOcken Sie die 
beklen Tasten 



nacheinander. Sie haben damit den Editor verlassen und befinden sich wieder auf 
Monitor -Ebene. 
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3.2 Die Funktionstasten 



Die Funktionstasten realisieren diejenigen FAhigkeiten des Editor, die Qber die reine 
Zdk^heneingabe hinausgehen. Wo die Tasten auf Ihrem Qerdt liegen, hftngt von dem 
jeweiligen GerAtetyp ab. Die Wirkung der Tasten ist im Weiteren erlAutert. 



Umschalttaste 



ur3 



Positionierungstasten 

Eingak)e-/ Absatztaste 

Kommandotaste 

Verstflrkertaste 

Tabulatortaste 

Markiertaste 

LOschtaste 

EinfOgetaste 

Supervisortaste 



Weitertaste 



Es kann sein, daB Tasten nicht richtig beschriftet sind. Die In8tallatk)ns-anleitung 
muB dann die Entsprechungen beschreiben. NatOrlich kdnnen sich weitere Funktk)ns- 
tasten auBer den Im folgenden beschriebenen auf Ihrer Tastatur befinden. Diese 
haben standardmABig jedoch kelne besondere Bedeutung fur den Editor. 
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3.3 Die Wirkung der Funktionstasten 



Umschalttaste 

Wird diese Taste gleichzeitig mit einer anderen betatigt. so wird ein Buchstabe in 
QroBschreibung, bei den ubrigen Tasten das obere Zeichen, ausgegeben. So wird z.B. 
anstelle der '9' das Zdichen ausgegeben. 

HH] 

Positionierungstasten 

Positionierung des Cursors urn eine Spalten-ZZeilenposition in die jeweilige Richtung. 




Eingabetaste / Absatztaste, Carriage Return, kurz: 'CR' 

Diese Taste schiieBt die aktuelle Zeile explizit ab urxJ es wird an den Beginn der 
nAchsten Z^ile positioniert. EinrQckungen werden beibehalten. 

Der EUMEL -Editor ist auf automatischen Wortumbruch voreingestellt, d.h. ein Wort, 
das Uber das 77. Zeichen der aktuellen Zeile herausreichen wQrde, wird automatisch 
in die nAchste Zeile gerOckt (siehe 'word wrap' 4.2.5). Die At)satztaste wird also 
benOtigt, urn explizite Zeilenwechsel und EinrQckungen bei der Textformatierung zu 
erhalten. Eine At)satzmarke wird durch ein 'blank' hinter dem letzten Zeichen der 
Zeile erzeugt und ist im Editor an der Inversnnarkierung am rechten BikJschirmrand zu 
erkennen. 

Im EUMEL -System werden Kommandos auf einer Kommandozeile. auf der aile 
Editorfunktionen zur Verfugung stehen, eingegeben. Auf dieser Ebene beendet die 
Taste also ausdrOcklich die Kommandoeingabe, das gegebene Kommando wird an- 
schlieBend analysiert und ausgefOhrt. 
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"VerstArkertaste"; wird als Vorschalttaste bedient. 

In Kombination mit anderen Funktionstasten wird deren Wirkung verstArkt. 

Steht der Cursor nicht am unteren Bikjrarxj, so wird er dorthin positioniert. Steht er 
am unteren Biklrand, so wird urn einen Biklschirminhalt "weitergeblAttert". 

Entsprechend werden auch die Tasten {-*~|[~»][T^ mit der HOP -Taste verstftrkt. 
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EinfOgen von Textpassagen. Die HOP -Taste in Verbindung mit RUBIN und RUBOUT 
wird zum 'verstArkten' Ltechen und EinfOgen verwendet. 

Ab der aktuellen Position des Cursors 'verschwindet' der restliche Text. Es Icann wie 
bei der anfAnglichen Texteingabe fortgefahren warden. Die Anzeige 'REST' in der 
Titelzeile erinnert daran, daB noch ein Resttext existiert. Dieser erscheint nach einem 
neuerlichen BetAtigen der beiden Tasten HOP RUBIN wieder auf dem Bildschimi (die 
Anzeige 'REST' varschwindet dann wieder). 



WKKKKKKKKKK^^ ^^^^^ ^ W 

Ift diuim t«xt «dII var 4m zwtiXm Satz 
CuTMm an die Fosltlon gefiHtrt, an der 



Nach Betfttigen der Taste W^ISM und WS^SBM sieht der Bildschirm wie folgt aus: 







In Ti>kt vot d^ t^Lteti $et2 









Nun kann beliebig viel Text eingefOgt warden. Nochnnaliges BetAtigen von HOP und 
RUBIN fOhrt den Text -Rest wieder bOndig heran. 
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LOscht die Z^ile ab Cursor -Position bis Zellenende. 



geloBcht mrdm^ po8itiflt\iert man an 

Hftch >W RU8WT i«t def Zffllei^r«»t geio^cht, 1 



Nach Bet&tigen der Tasten i^iliPlli; und sieht der Bildschirm wie foigt aus: 



Z^ii^ Bin TextJr^dt 



Steht der Cursor am Zeilenanfang, wird nach HOP RUBOUT dementsprechend die 
ganze Zeile geiOscht und die LQcke durch Nachr(jcl(en der Foigezeilen geschlossen 
(HOP RUBOUT betfltigen). 
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Tabulatortaste 



Mit der Tabulatortaste warden die eingesteliten Tabulatorpositionen angesprungen. 
Jeder Tastendruck lABt den Cursor auf die nAchste eingestellte Tabulatorposition 
springen. 

VoreingastBlltB Tabulatorpositionen sind die beiden Schreibgrenzen, Textanfang in der 
Zeile und Ende der Z^ile. 

Weitere Tabulatorpositionen kOnnen durch Positionierung auf die gewunschte Spalte 
und mp TiyH gesetzt werden. Sie kOnnen gelOscht werden» indem sie mit TiAi^ 
angesprungen und mit HOP TlilB^ ausgeschaltet werden. 

Die gesamte eingestellte Tatxjialation kann durch IBSC TMIi ein-/ und ausge- 
schaltet werden. 

Die eingesteliten Tat>ulatorpositk>nen erkennen Sie an den Tabulatorzeichen (Dachzei- 
Chen) in der obersten Bikjschirmzeile. 



3-8 



GMD 



TEIL 3 : Editor 




Ein- bzw. Ausschalten der Markierung. 

Bei BetAtigung dieser Taste wird in einen spezlellen Markierzustand geschaltet. Alios, 
was Sie jetzt 8Chreit)en bzw. durch Bewegen des Cursors in Richtung Dateiende 
kennzeichnen, steht als markierter Bereich fur die Bearbeitung zur Verftigung. Zur 
besseren Sichtbarkeit wird der markierte Bereich invers zum ubrigen Text dargestellt. 

Wird der Cursor in eine Richtung bewegt, wird das gesamte Textstuck zwischen 
Einschaltpunkt der Markierung und aktueller Cursorposition niarkiert. ROckwftrtsbewe- 
gungen des Cursors verkurzen den markierten Bereich wieder. 

Durch emeutes BetAtigen der MARK -Taste schalten Sie den Markier-Zustand 
wieder aus. 

Mit weiteren Kommandos kann der Bereich nun bearbeitet warden: 



Markierten Abschnitt in 'Scratch' - Datei kopieren. 
Markierten Abschnitt herauskopieren. 



Markierten Abschnitt lOschen. 



Der mit Oder d kopierte Bereich kann beliebig oft in derselben Oder einer 

anderen Datei ein/angeftigt werden. 

Der mit IPBO IHiNKlUT gelOschte Ak)schnitt kann genau einmal durch 
680 fKiMI an anderer Stelle derselben Datei eingefugt werden. 

(vgl. ESC -Taste, Operationen auf Markierungen, 3-15) 
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Ein - bzw. Ausschalten des Einftigemodus. 



Das Betfltigen der Taste schaltet in den EinfQgemodus. Der Zustand wird durch das 
Wort 'RUBIN' im linken Drittei der Titelzeile der Datei angezeigt. Vor dem Zeichen, 
auf dem der Cursor steht, wird eingefOgt. Nochnialiges BetAtigen der Taste schaltet 
den EinfQgemodus aus. 




LAschtaste 



Das Zdichen, auf dem der Cursor steht, wird gelOscht. Wenn der Cursor, wie bei 
fortlaufender Eingabe Qblich, hinter dem letzten Zeichen einer Z^ile steht, wird das 
letzte Zeichen gelOscht. 
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3.4 ESC Kommandos 




Kommandotaste 

Mit der ESC -Taste in Kombination mit einer Folgetaste warden vordefinierte AI(tionen 
ausgelOst. Es gitn Aktionen, die vorprogrammiert zur Verfugung stehen, und Sie selbst 
kOnnen weitere hinzufOgen. 

Der Kommandodialog wird eingeschaltet durch: 




Der Kommandodialog ermOglicht die Eingat)e von t)eliebigen Kommandos ohne den 
Editor verlassen zu mOssen. Insbesondere Such - und Kopieroperationen stetlen auch 
fur den Programmierer nOtzliches Werkzeug dar (siehe 3.5). 

Auf der Kommandozeile kann jedes Kommando gegeben werden. Die Kommandozeile 
kann wie eine normale Textzeile editiert werden. Nach WSSM verschwindet die Kom- 
numdozeile und das Kommando wird ausgefOhrt. 

Falls ein Fehler auftritt erfolgt eine entsprechende Fehlermekjung in der Kopfzeile und 
die Kommandozeile erscheint emeut. 
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Urn ein weiteres Editor -Fenster zu 'Offnen', betfttigt man im Editor 



Betdtigt man ESC e ungefAhr in der Mitte des Bildschirms, hat man das Fenster auf 
die neue Datei in der unteren HAIfte des Bildschirms und die *alte' Datei in der 
oberen BildschirmhAlfte. Zun&chst wird der Dateiname erfragt. Nach dessen Eingabe 
und wird ein Fenster auf erOffnet. Die obere linke Ecke des Fensters befindet 
sich an der aktuellen Cursor -Position. Dabei darf sich der Cursor nicht zu sehr am 
rechten Oder unteren Rand befinden, weil das Fenster sonst zu klein wOrde. In diesem 
'Fenster' kann man dann genauso arbeiten wie im 'normalen' Editor. 

Mit der Tastenfolge 



wechselt man von einem Fenster (zyklisch) in das benachbarte. Es gibt eine Hier- 
archle zwischen den Fenstern in der Reihenfolge, in der eines im anderen einge- 
richtet worden ist. Gibt man 



in einem Fenster, so verschwindet dieses und alle darin eingeschachtelten Fenster, 
urxJ man k)efindet sich im Qbergeordneten Fenster. 

Durch 

Oder 

schreibt man einen markierten Tail in eine 'Scratch' - Datei (nicht editierbarer 
Zwischenspeicher); durch ESC p wird ein nuirkierter Text aus der Ursprungsdatai 
entfemt und in die 'Scratch' - Datei geschrieben. Im Gegensatz dazu wird er durch 
ESC d kopiert. Durch 



fOgt man ihn in eine andere (Oder dieselbe) Datei ein. Im Unterschied zu ESC RUBIN 
wird die temporflre Datei dadurch nicht entleert. 
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Die fOr ESC p, bzw. ESC d benutzte 'Scratch' - Datei, die nicht editierk)ar ist. ist nicht 
mit dem sogenannten Notizbuch zu verwechseln. Das Notizbuch ist eine Datei, in der 
aile Editorfunktiorien t)enutzt werden kOnnen, auf die Jedoch ohne Angabe eines 
Dateinamens durch 




ab der aktuellen Cursorposition ein Funster erOffnet wird. Das Notizbuch nimmt 
insbesondere Fehlermeldunoen und Meldungen bei der Obersetzung von Programnien 
auf. 




eriaubt vom AuBeren Fenstar aus aile eingeschachtelten Fenster zu veriassen. 
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Vorbelegte Tasten 



ESC q Verlassen des Editors bzw. der eingeschachtelten Fenster. 

ESC e Weiteres Editorfenster einschaiten. 

ESC n Notizbuch 'anzeigen*. 

ESC V Dateifenster auff ganzen Bildschirm vergrOBern 

bzw. Bildschirm rekonstruieren (eingeschachteltes F=enster verlas- 
sen). 

ESC w Dateiwechsel beim Fenstereditor. 

ESC f Nochmalige AusfOhrung des letzten Kommandos. 

ESC b Das Fenster wird auf den Unken Rand der aktuellen (ggf. verscho 

benen) Zeile gesetzt. 

ESC -* Zum nftchsten Wortanfang. 

ESC ^ Zum vorherigen Wortanfang. 

ESC 1 Zum Anfang der Datei. 

ESC 9 Zum Ende der Datei. 
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Operationen auf Markierungen 



ESC RUBOUT Markiertes "vorsichtig" lOschen. 

ESC RUBIN Mit ESC RUBOUT vorsichtig GelOschtes einfugen. 

ESC p Markiertes lOschen und in die Notiz - Datei schreiben. Kann mit ESC 

g an arKterer Stelle reproduziert werden. 

ESC d Duplizieren: 

Markiertes in die Notiz -Datei kopieren, anschlieBend die 
Markierung ak)8Chalten. Kann mit ESC g beliebig oft reproduziert 
werden. 

ESC g Mit ESC p gelOschten Oder mit ESC d dupiizierten Text an aktuelle 

Cursor -Stelle schreiben, d.h. Notiz -Datei an aktueller Stelle einfu- 
gen. 
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Zeichen schreiben 

Diese Tasten sind standardmABig so vorbelegt wie hier aufgefOhrt, sie kOnnen aber 
von Benutzern und in Anwenderprogrammen go&ndert warden. 



ESC a 


Schreibt sin &. 


ESC A 


Schreibt ein A. 


ESCo 


Schreibt ein 0. 


ESCO 


Schreibt ein d. 


ESC u 


Schreibt ein U. 


ESC U 


Schreibt ein 0. 


ESCs 


Schreibt ein B. 


ESC( 


Schreibt eine [. 


ESC) 


Schreibt eine ]. 


ESC < 


Schreibt eine { . 


ESC > 


Schreibt eine ). 


ESC# 


SchreitTt ein #, das auch gedruckt werden kcmn. 


ESC- 


Schreibt einen (geschQtzten) Trennstrich, siehe Textverarbeitung. 


ESC k 


Schreibt ein (geschUtztes) "k". siehe Textverarbeitung. 


ESC blank 


Schreibt ein (geschOtztes) Leerzeichen, siehe Textverarbeitung. 



Kommando auf Taste legen 



ESC ESC Kommandodialog einschalten 

ESC I taste Im Kommandodialog: 

Geschriebenes Kommando auf Taste legen. 

ESC ? taste Im Kommandodialog: 

Auf 'taste' geiegtes Kommando zum Editieren anzeigen. 

ESC k Im Kommandodialog: 

Das zuletzt editierte Kommando (einzeilige ELAN - Programm) 
anzeigen. 
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Der Lernmodus 



Der Lernmodus ermOgiicht beliebige Tastensequenzen zu speichern und auf eine 
Taste 't* zu legen. Durch ^@SC i wird die gesamte Sequenz ausgefQhrt. 

Nicht belegt werden kOnnen die vom System vortwlegten Tasten (3- 14). 

Beispielsweise kOnnte es fQr einen Programmierer sinnvoll sein die Tastenfolge 
THEN' 'CR' auf die Taste m zu legen. Durch WO T wird THEN' 

in die aktuelle Zeile geschriet3en und der Cursor mit passender Einruckung in die 
Folgezeile geseut. 



ESC HOP Lernen einschalten. 



ESC HOP taste Lernen ausschalten und Lernsequenz auf 'taste'legen. 



ESC HOP HOP Gelerntes vergessen. Bedingung ist, daB man die Lernsequenz in 
der Task iOscht, in der man sie hat lernen lessen. 



ACHTUNG: 

Der Lernmodus bleibt einoBSChaltot, auch wenn der Editor beendet wkd. Dam warden 
die fblgenden Monitor -Kdmmandoe usw. usf. 'gelernt'. Durch unsinnigBS 'Lernen' 
lessen sich echlimmslanlalls beUebige VerwQslungan anrictilan. 

Der Lernmodus wiriid in dor Editor -Kdpbeile angezeigL Falls der Editor beendet wird, 
ohne dan Lenvnodus a ua zuech al ten. erfblgt eine Wamung auf MonHor-Bnne. 



Urn den Lernmodus zu beenden drOcken Sie: 



^^^^3 ^^^^^^ .^^^^^^ 



Dadurch wild der Lernmodus ausgeechallBt und nictits gelenit, die Gefatir ist gebennt 
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SUPERVISOR -Taste 



Bet&tigen Sie diese Taste im Editor, dann unterbrechen Sie Ihre Editierarbeit und 
erhalten die Meldung 



EXMlL Version I.d/M 



9lb eupervisw komMmdo: 



ESC 7 help 
CSC 4 «»^> break 



esc h ^> Xml% 

ESC e ^> eti>ta§e ii!(f<^ 

ESC t 'r^> tmk infa . 



Wollen Sie nun im Editor fortfahren bzw. haben Sie irrtOmlich die SV- Taste betatigt, 
dann geben Sie das Komniando 



nib eiiperviaor kcnMMNmdo : 



(falls Ihre Task, in der Sie arbeiteten, wirklich 'meine task' hieBI) 
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Urn Ihren in Bearbeitung befindlichen Text wieder vollstftndig auf dem Bildschirm zu 
sehen, betfttigen die die Tasten 




Sie sind wieder an der Stelle, an der Sie den Text mit der SV- Taste verlassen ha- 
ben. und kOnnen normal weiterart)eiten. 

Achtung: Die SV- Taste kann. je nach Terminal, durch das Betdtigen von zwei 
Tasten gleichzeitig realisiert sein (oft 'CTRL b'). Beachten Sie die Beschreibung Ihrer 
Tastaturl 



FOr die Programmiaruno >st die Tastonfoige | |gf | ¥on Badeutung, da hler- 

durch der Fehler 'halt vom Terminal* erzeugt wird. Dodurch kflnnen unarwOnscht 
laufDnde Prografimie abgabrochen vvefden. 
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Untertxechen einer Ausgabe (oft auch als CTRL a realisiert). 

Haben Sie diese Taste aus Versehen betatigt, erkennen Sie dies daran, daB der 
Editor nicht "reagiert". BetAtigen Sie die WEITER- Taste (oft auch CTRL c). 



Unterbrochene Ausgabe fortsetzen. 



Ein mit der STOP -Taste angehaltene Ausgabe kOnnen Sie durch Betatigen der 
WEITER- Taste fortsetzen. 



VORSICHT: Die STOP -Taste unterbricht nur die Ausgabe auf den Bikjschirm. Zei- 
chen. die wAhrend des STOP eingegeben werden, werden gespeichert 
und nach 'WEITER' ausgegebeni 
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3.5 Positionieren, Suchen, Ersetzen 
im Kommandodiaiog 



Urn das Editorfenster auf eine bestimmte Zeile zu positionieren wird einfach diese 
Zeilennummer angegeben. 



Falls die Zeilenzahl der Datei geringer als die angegebene Zeilennummer ist, wird auf 
die letzte Zeile positioniert. 



Urn das Editorfenster auf ein bestimmtes Textsttick zu positionieren, wird der gesuch- 
te Text. ggf. mit Suchrichtung angegeben. 



Zfitile 4 



Die Suchrichtung kann durch 'D' (down) Oder 'U' (up) zusAtzlich spezifiziert werden. 
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Urn beliebige Texte durch andere zu ersetzen, dienen die Operatoren 'C (change) 
bzw. 'CA' (change all). 

Bei Ausfuhrung dieses Kommandos wird zundchst nach unten in der editierten Datei 
nach dem zu ersetzenden Text gesucht. Wenn der Text gefunden wird, wird er durch 
den hinter dem Operator stehenden Text ersetzt. 



Zffile 4 ■ 



Bei Anwendung von 'CA' wird jedes Auftreten des gesuchten Textes ab der 
Cursorposition durch den Ersatztext ersetzt. t>ts das Dateiende errraicht ist. 

Weitere ErklArungen zum Suchen und Ersetzen in 5.5. 
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Weitere Hilfen 



Textabschnitt an anderer Stelle der Datei einsetzen: 

- Abschnitt markieren und mit WSO 4 zwischenspeichem. 

- Zwettas Editorfenster auf die Datei mit « Offnen. 

- Nach .jlSC^' WSB^ Zeilennummer Oder Suchbegriff angeben und mit 990 0 
Abschnitt an der gewOnschte Stelle einsetzen. 



Textabschnitt schnell herauskopieren und sichern: 

- GewOnschten Abschnitt markieren 

' mS PUTCdateiname") CR 
Der Abschnitt wird in die Datei 'dateiname' geschrieben. Falls die Frage 'dateina- 
me' Ktechen (j/n) vemeint wird, wird der Ak)schnitt, an das Ende der Datei angefGgt. 
Dadurch kOnnen Textat)schnitte schnell gesammelt werden. 

Komplette Datei in die editierte Datei einfOgen: 

-mm mm GET(-dateiname-) IW 
Der komplette Inhalt von *dateiname' wird an die aktuelle Position geschrieben. 



Breitere Zdiie erzeugen: 

"Wsm mmm \\m^23) mm 

Die Zbilenbreite wird auf 123 Zeichen ge&ndert. Der maximal zulAssige Wert ist 
16000. Dieser Wert bezieht sich auf den Zeilenumbruch. Bei Zeilenbreite > 77 wird 
nur die aktuelle Zeile verschoben. Um fur den ganzen Bikjschirm die rechte Seite 
der Datei zu sehen, kann die linken Spalte des Biklschirmfenster neu gesetzt wer- 
den: 

mSI MKI margin(60) IHiii 

Die Normaieinstellung wird durch 'limit(77)' und 'margin(1)' wiederhergestellt. 
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TEIL 4: Kommandosprache 

In Teil 4 sind diejenigen Kommandos beschrieben, die erfahrungsgem^B eher der 
Handhabung der Arbeitsumgebung zuzurechnen sind. Es ist den Verfassern bewuBt, 
daB Auswahl und Zusammenstellung recht wilikQrIich sind, weii eine klare Abgrenzung 
zum Teil 5, welcher die Kommandos, die dem Thema: 'Programmierung' zugeordnet 
werden, nicht mOglich ist. 

Der Teil 4 ist in die Themen: 



-4.1. 


Supervisor - Kommandos 


-4.2.1 


Hilfs- und Informationsprozeduren 


-4.2.2 


Thesaurus 


-4.2.3 


Tasks 


- 4.2.4 


Handhabung von Dateien 


- 4.2.5 


Editor 


-4.2.6 


Dateitransfer 


- 4.2.7 


Passwortschutz 


-4.2.8 


Archiv 



gegliedert. Insbesondere zu 4.2.4 ist anzumerken, daB nur Kommandos, die ganze 
Dateien betreffen hier erIAutert sind. Kommandos, die Dateiinhalte betreffen (Suchen. 
Ersetzen etc.) sind in 3.5, bzw. 5.3 beschrieben. 
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4.1 Supervisor 



Es gibt genau sieben vom Supervisor akzeptierte Kommandos. Diese Kommandos 
kOnnen gegeben warden wenn nach dem Einschalten des GerAts Oder dem Abkoppein 
einer Task die SV- Taste gedrOckt wurde und die sogenannte EUMEL -Tapete 
erscheint. 



Desweiteren kann WBM in einer Task gedrUckt werden, urn durch -MlSt # einen 
Programmabbruch einzuleiten. 

Im Gegensatz zu den im weiteren beschriebenen, durch EIlAN Prozeduren realisierten 
Kommandos, sind diese Supervisor -Kommandos nicht als Prozeduren im System und 
mithin ntoht durch 'help (...)' anzelgbar. 




gib wpervisiir kmmndo: 



CSC b b«ftin(*'») 
ESC bnak 



ESC h t>alt 
ESC t — > task Info 
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PROC begin (TEXT CONST taskname) 

Richtet sine neue Task ais Sohn von PUBLIC ein. 



PROC begin (TEXT CONST taskname, valertask) 

Richtet eine neue Task als Sohn der Task 'vatertask' ein. falls die Vater-Task 
eine Manager -Task ist. Falls diese Task keinen Managerstatus besitzt, passiert 
nichtsi In diesem Falle muB das Kommando durch 1^1 abgebrochen werden. 



FEHLER : 'taskname* existiert bereits 
"vatertask' gibt es nicht 



PROC oontinue (TEXT COHST taskname) 

Eine existiererxje Task wird an das Terminal des Benutzers cmgekoppelt. 
FEHLER : "taskname' gibt es nicht 



Falls 'begin' Oder 'continue' trotz korrekter Voraussetzungen kein Resultat zeigen, 
'hAngt' die betroffene Task. Beim 'begin' Kommando kann das der Fall sein, falls 
die Vater-Task nicht durch 'break' abgekoppelt wurde, sondern mit SV verlas- 
sen wurde. In diesem Fall muB das Kommando durch 'WSM abgebrochen werden, 
die Vater-Task angekoppelt und mit £30 i;^ korrekt abgekoppelt werden. 
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PROC break 

Das Terminal wird vom Rechner abgekoppelt. 



PROC halt 

Das laufende Programm der dem Terminal aktuell zugeordneten Task wird abge- 
brochen. 

Falls in der an das Terminal gekoppelten Task ein laufendes Programm abgebro- 
chen werden soli, muB zunAchst durch ; der Supervisor aufgerufen werden. 
Durch das Supervisor - Kommando 'halt' wird der Fehler 'halt from terminal' 
induziert. Das Programm wird wie durch jeden anderen Fehler abgebrochen, falls 
nicht 'disable stop' gesetzt wurde! 
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PROC storage info 

Informationsprozedur uber den belegten und den verfugbaren Hintergrund-Spei- 
cher des gesamten Systems in KByte 

Das Terminal wird unmittelbar abgekoppeiti 



■.■•mmm%--MfKnm.-. 

PROC task info 

Informiert uber alle Tasknamen im System unter gleichzeitiger Angabe der Vater/ 
Sohn - Beziehungen durch Einruckungen. 




PROC help 

Kurzbeschreibung der SV - Kommandos. 



1) Bei der derzeit aktuellen ' + ' Version EUMEL 1.8.1/M-i- sind die beiden Anga- 
ben mit 4 zu multiplizieren I 
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4.2 Monitor 



Untar dem Stichwort Monitor -Kommandos sind an dieser Stelle Kommandos be- 
schrieben, die stAndig zur Handhabung der Arbeitsumgebung benutzt warden. 
Gleichwohl sei sofort darauf hingewiesen, daB jedes ELAN Programm dem Monitor zur 
AusfOhrung Qbergeben werden kann. Es gibt also keine speziellen Monitor- 
Kommandos, sondern nur eine Reihe von Prozeduren (» Kommandos), die in dieser 
Umgebung erfahrungsgemAB besonders hAufig benutzt werden. 



4.2.1 Hitfs- und informationsprozeduren 

- Pakete, Prozeduren packets, txjiletin , help 



Parameter 



- Tasksystem zeigen 



task info , task status 



- Speicherplatz zeigen 



storage , storage info 



4.2.2 Thesaurus 



- besondere Thesauri 



ALL . all . SOME , remainder 



- Verknupfung 



+ 



/ 



4.2.3 Taskoperationen 



- besondere Tasknamen 



archive , brother , father , myself 
printer , public , son , supervisor 
break 
end 

global manager , free global manager 
rename myself 



- Tenminal at)koppeln 

- Task Idschen 
-Manager -Task 

- Umk)enennen der Task 
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4.2.4 Hafxjhabung von Dateien 

copy . edit . forget . list , rename , show 



4.2.5 Editor 



- Editieren 

- Tastenbeiegung 



edit , editget . show 
kommando auf taste (legen) , 
lernsequenz auf taste (iegen) , 
std tastent)elegung , 
taste enthdit kommando , 
word wrap 



4.2.6 Transfer 

- Datei holen 

- Datei senden 

- Drucken 

- Datei lOschen 



fetch . fetchall 
save . saveall 
print 
erase 



4.2.7 Passwortschutz 



- 'begin' absichem 

- 'continue' absichem 

- Dateien absichem 

" Systemzweig sichem 



begin password 
task password 
enter password 
family password 



4.2.8 Das Archiv 



- Reservieren/freigeben 

- Formatieren 

- Utechen 

- Kontrollesen 



archive , release 

format 

clear 

check 
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4.2.1 Hilfsprozeduren 

Die drei Prozeduren listen ihre Ausgabe jeweils in eine tempor&re Datei, die mit 
'show' (s. 4.2.5) gezeigt wird. 




PROC packets 

Auflisten der Namen alier insertierten Pakete in der Task. 



PROC bulletin (TEXT CONST poket name) 

Listen aller in der DEFINES- Liste des Pakets mit dem Namen "paket name' 
enthaltenen Prozeduren. 

FEHLER : ... ist kein Paketname 



PROC bulletin 

Es wird eine Liste aller bisher insertierten Objekte erstellt. Diese Liste ist paket- 
weise sortiert. 'bulletin' zeigt also eine Liste aller Prozeduren an, die in der Task 
t)enutzt werden kOnnen. 
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PROC help (TEXT CONST name) 

Listen ailer Prozeduren / Operatoren mit dem Namen "name". Der Name des 
Packets in dessen Schnittsteile die Prozedur steht wird mit ausgegeben. 

Falls es kein Objekt des erfragten Namens gibt, erfolgt die Ausgabe: 

unbekannt "name". 



Beispiel: 



gib kommando : 
helpC'sBve*') 


liefert: 


PACk€T rtd«iBset: 






(T«£SAUftUS COMST* TASR CO«ST> 
(THESAUTOS COKST) 


PACKET ^lo&almantager ; 




&av^ * « 4 4 . « « ^ « > . 


(DATASPACE CONST, TEXT CONST, TASK COWST) 
(TEXT Camt, TAS*(t CONST) 
(TEXT CONST) 



GMD 



4-9 



EUMEL - Benutzerhandbuch 



Desweiteren kann auch nach Prozedurnamen gesucht werden, die nur annfthernd 
bekannt sind, indem ein Suchmuster spezifiziert wird. Das Suchmuster besteht aus 
dem bekannten Tail des Namens und dem Operator '*\ der vor und/oder nach 
dem Suchbegriff gesetzt werden kann. bezeichnet eine beliebige (auch leere) 
Zeichenkette. 

Beispiel: Gesucht werden die verschiedenen 'info' Prozeduren: 



9lb konmanda ; 





imi COTST, IWT CONST) 








dm CQKST) 


ta^k if^^ti ». 4 4 «■ « 4 «. 






(FILE Vm, mi CORST) 




triLC CONST) — > INT 







Dieser Stern darf nicht mit dem 'joker' des 'Pattern Matching' verwechseit werden. 
In der 'help' Prozedur darf '*' nicht in den Suchbegriff eingesetzt werden, sondem 
nur an Wortanfang und - Ende gesetzt werden. 
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Informationsprozeduren 



INT PROC storaoB (TASK CONST task) 

Informationsprozedur uber den logisch belegten Hintergrund-Speicher der Task. 
(Angabe in KByte, bzw. 4KB Einheiten bei der ' + ' - Version) 







put ( fitot a90(«y«ii>lf ) ) 






git kQmmf\4Q x 



PROC storage info 

Informationsprozedur Qber den t)elegten und den verfOgbaren Hintergrund-Spei- 
cher des gesamten Systems. Die Ausgabe erfolgt in KByte, t>ei der aktuellen 
' + ' - Version in 4 KByte Einheiten. 



storage info 
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PROC task info 

Informiert uber alle Tasknamen im System unter gieichzeitiger Angabe der Vater/ 
Sohn - Beziehungen (Angabe durch Einruckungen). 



PROC task info (INT CONST art) 

Informiert uber alle Tasks im System. Mit 'art' kann man die Art der Zusatz- 
Information auswfthlen. 



arts1: entspricht 'task info' ohne Parameter, d.h. es gibt nur die Tasknamen 
unter Angabe der Vater/Sohn - Beziehungen aus. 

art -2: gibt die Tasknamen aus. Zusdtzlich erhalten Sie Informationen uber die 
vertwauchte OPU-Zeit der Task, die Prioritat, den Kanal, an dem die 
Task angekoppelt ist. und den eigentlichen Taskstatus. Hierbei bedeuten: 



-busy- 
i/o 

wait 

busy -blocked 
i/o -blocked 
wait -blocked 



Task ist aktiv. 

Task wartet auf Beendigung des Outputs Oder auf 
Eingatse. 

Task wartet auf Sendung von einer anderen Task. 

Task ist rechenwillig, aber blockiert^^. 

Task wartet auf I/O, ist aber blockiert. 

Task wartet auf Sendung, ist aber blockiert. Ach- 

tung: Die Task wird beim Eintreffen einer Sendung 

automatisch entblockiert. 



> 6 dead 



art -3: wie 2, aber zusdtzlich wird der belegte Speicher angezeigt. (Achtung: 
Prozedur ist zeitaufwendigl). 



1) Eine Blockierung kann von 'Scheduler' veranlaBt warden 
(siehe Systemhandbuch) 
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qib kommanda : 
ta^k infd(2> 



liefert: 





15.05*S7 10:39 




PniO CHAN STATUS 




OaOO:I?;47 






wait 




0000x07x54 


0 




wait 




OO0O:J42O2 


0 




wait 


shutup dialog «W4««4.4« 


0000:05:26 


0 




i/o 




0000:04:17 


0 




wait 




0000:00:14 


0 




i/o 




0000:10:33 


0 




wait 




0006:41:56 


0 




wait 




0000:02:48 


2 




i/o 


. . . . . . .-p^y < • »• • t •« ■ |- ■ ■ 'I y ■ g fit t -4. 4 -4. 


0000:40:23 


0 


7 


wait 




0000:05:59 


0 




wait 




0000:00:11 


0 




wait 




0000:02:11 


0 




wait 




0002:02:03 


0 




wait 




0000:41:50 


0 






■■ ■. . itaS'k.-^ • * ♦ ♦■.-.ti.-.*-.-*-.-.*-.-*-. .•■.•.•4.-.-4 • ■•■ • * .•*■.■.*.■.»■..»■.■•♦ •'. . 


0000:03:10 


0 




i/o 




0000:57:28 


0 


1 
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PROC task info (INT CONST art. RLE VAR infddaiBi) 

Wie oben, die Ausgabe wird jedoch in die Datei 'infodatei' geschrieben. 



FILE VAft iitfo ITS sequBntial f output ^♦'infbdatei**) t 
tankinfoi^f info); 



PROC task info ( INT CONST art statk)nsnr) 

EmiOglicht im Netzbetrieb *task info' uber die Station mit der Nummer 'stationsnr'. 



9 lb konmdridd : 
taakinfo<l,12) ; 
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PROC task status 

Informationsprozedur uber den Zustand der eigenen Task. Informiert uber 

- Name der Task, Datum und Uhrzeit; 

- verbrauchte CPU - Zeit; 

- belegten Speicherplatz; 

- Kanal. an den die Task angekoppelt ist; 

- Zustand der Task (rechnend u.a.m.); 

- Prioritftt. 

PROC task status (TASK CONST t) 

Wie obige Prozedur, aber ut)er die Task mit dem internen Tasknamen 't'. 



git> koflimndo : 

task stdtiis <publii::) 

IS^eS.ar 10:30 TASK: PUBLIC 

Speich^r: 125AR 

CPU Zeit; 0011.12:23 

lustartd i wait^ (*^ri6 0)^ Kanal - 
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4.2.2 Thesaurus 



Ein Thesaurus ist ein Namensverzeichnis, das bis zu 200 Namen beinhalten kann. 
Dabei muB jeder Namen mindestens ein Zeichen und darf hOchstens 100 Zeichen 
lang sein. Steuerzeichen (ccxje < 32) in Namen warden umgesetzt (siehe 2.9.2). 

Thesauri werden unter anderem von der Dateiverwaitung benutzt, urn das Dateiver- 
zeichnis einer Task zu fuhren. 

Man kann einen Thesaurus selbst ersteilen, indem eine Datei z.B. mit Namen von 
Dateien gefullt wird. Diese Datei kann dann als Thesaurus fur weitere Aktionen die- 
nen. 



- Thesaurus liefern ALL , all . SOME , remainder 

- Ausw^hien LIKE 

- Verkniipfen + , - , / 



ACHTUNG : Bei der Verwendung von Thesaurus Operationen in Verbindung mit 
'fetch', 'save' etc. ist zu beachten, daB mit 'SOME', 'ALL' und 'all' zunfichst nur eine 
Auswahl aus einer Liste getroffen wird. Zusdtzlich muB das Ziel Oder die Quelle des 
Dateitransfers vereinbart werden. 

Ein beliebter Fehler ist z.B.: 'fetch (ALL archive)'. 

Hier ist nicht weiter spezifiziert, von wo Dateien geholt werden sollen - also werden 
sie von 'father' geholtl (s. 4.2.5) 

Falls die Dateien vom Archiv geholt werden sollen, ist das Archiv als Quelle zu be- 
nennen: 

Also : 'fetch (ALL archive, archive)' - Hole alie Dateien, die in dem Thesaurus von 

'archive' sind von der Task 'archive'. 
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THESAURUS OP ALL (TASK CONST task) 

Liefert einen Thesaurus, der alle Dateinamen der angegebenen Task enthdit. 



THESAURUS OP ALL (TEXT CONST dateiname) 

Liefert einen Thesaurus, der die in der angegebenen Datei vorhandenen Namen 
(jede Zeile ein Name) enthAlt. 



THESAURUS PROC ail 

Liefert einen Thesaurus, der alle Dateinamen der eigenen Task enthdit. Entspricht 
'ALL myself. 



som 



THESAURUS OP SOME (THESAURUS CONST thesaurus) 

Bietet den angegebenen Thesaurus zum editieren an. Dort kOnnen nicht erwunsch- 
te Namen gestrichen werden. 



THESAURUS OP SOME (TASK CONST task) 

Aufruf von: SOME ALL task. 



THESAURUS OP SOME (TEXT CONST dateiname) 

Aufruf von: SOME ALL dateiname. 



QMD 
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PROC remainder 

Liefert nach einem 'errorstop' die noch nicht bearbeiteten Dateien. 



save all (archive) 

kann nicht geachrietNBn warden <Arcftiv vail)* 



Nachdem man sine neue Floppy ins Archivlaufwerk gelegt hat, kann man mit 



qib kommandd t 

eave (reiftainder, archive) 



den Rest der Dateien auf die ndchste Floppy sichern. 



4-18 



GMD 



TEIL 4 : Kommandosprache 



THESAURUS OP LIKE (THESAURUS CONST thesaurus, TEXT CONST muster) 

Alia im Thesaurus enthaitenen Dateien, die dem 'muster' entsprechen sind im 
Ergebnisthesaurus enthatten. 

(Die Syntax von 'muster' ist be\ der Beschreibung des Pattern - Matching (5.4) 
beschrieben) 



gib kommanda : 
(all LIKE 



Alle Dateien, deren Name mit '.p' endet, werden gedruckt. 



GMD 
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THESAURUS OP + (THESAURUS CONST links, rechts) 

Liefert die Vereinigungsmenge von 'links' und 'rechts*. 

Achtung: Die Vereinigungsmenge enthdit keine Namen mehrfach. 

THESAURUS OP + (THESAURUS COHST links, TEXT CONST recTltS) 

FQgt dem Thesaurus 'rechts' zu, wenn 'rechts' noch nicht im Thesaurus enthal- 
ten ist. 



THESAURUS OP - (THESAURUS CONST links, rechts) 

Liefert die Differenzmenge. Achtung: Die Differenzmenge enthdit keine Namen 
mehrfach. 

THESAURUS OP - (THESAURUS CONST links. TEXT CONST rechts) 

Nimmt den Namen 'rechts' aus dem Thesaurus. 



9 lb komnvflndo ; 

fetcMALi. father - ALi nrys6lf) 



/ 

THESAURUS OP / (THESAURUS COHST links, rechts) 
Liefert die Schnittmenge 

Achtung: Die Schnittmenge enthdit keine Namen mehrfach. 
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4.2.3 Tasks 

Zur Identifizierung von Tasks dienen sogenannte 'interne Taskbezeichner*. Ein solcher 
Taskbezeichner wird beim Einrichten einer neuen Task vergeben. Interne Taskbe- 
zeichner sind auch unter Berticksichtigung der Zeit eindeutig. 

Der Zugriff auf interne Taskbezeichner erfolgt uber Prozeduren und Operatoren, die 
auf Objekte des Datentyps TASK (siehe 2.9.1) angewandt warden. 

ZusAtziich zum internen Tasknamen, der nicht auszugeben ist, haben Tasks meistens 
einen Namen^^ . 

Aus Benutzersicht kOnnen benannte Tasks innerhalb eines Rechners vollst&ndig und 
eindeutig uber ihren Namen identifiziert werden. 



- Task iiefem 

• Verwandtschaften 

- Ausgezeichnete Tasks 

- Nannen liefern 

- Tasknamen Andem 
Reservieren bes. Tasks 



/ , task , niltask 

brother , father , myself , son 

archive . printer , public , supervisor 

name 

rename myself 
reserve 



1) Unbenannte Tasks haben den Pseudonamen " - 
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TASK OP / (TEXT CONST taskname) 

Liefert die Task des angegebenen Namens, falls sie existiert. Der elgene Katal- 
og wird automatisch aktualisiert 

(Identisch mit der PROC task (TEXT CONST taskname). 

FEHLER : 'taskname' gibt es nicht 



TASK OP / (INT COHST Station number. TEXT CONST name) 

Liefert im Netzbetrieb die Task des angegebenen Namen von der Station mit der 

angegebenen Nummer. 



TASK CONST niltask 

Bezeichner fur "keine Task". So liefem die Prozeduren 'son', 'brother' und 'father' 
als Resuitat 'niltask', wenn keine Sohn-, Bruder- Oder Vatertask existiert. 



TASK PROC task (TEXT CONST taskname) 

Liefert die Task des angeget)enen Namens, falls sie existiert. Der eigene Katal- 
og wird automatisch aktualisiert. 

FEHLER : "taskname" gibt es nicht 



TASK PROC task (INT COHST channel number) 

Liefert den Namen der Task, die an dem angegebenen Kanal hdngt. 



A - 22 



GMD 



TEIL 4 : Kommandosprache 



TASK PROC brother (TASK CONST task) 

Liefert den nAchsten Bruder von 'task'. Falls kein Bruder existiert, wird 'nlltask' 
geliefert. Aktuallsiert den eigenen Katalog nicht automatisch! 



TASK PROC father 

Liefert die eigene Vatertask. 



TASK PROC father (TASK CONST task) 

Liefert den Vater von 'task'. Existlert keIn Vater (z.B. bei UP). wIrd nlltask gelie- 
fert. Aktuallsiert den eigenen Katalog nicht automatisch! 




TASK PROC myself 

Liefert eigenen Task - Bezelchner. 



TASK PROG son (TASK CONST task) 

Liefert den ersten Sohn von 'task*. Falls keiner im Katalog vermerkt ist, wird 
'nlltask' geliefert. Aktuallsiert den eigenen Katalog nicht automatisch! 
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TASK PROC archive 

Liefert den internen Taskbezeichner der aktuelien Task mit Namen ARCHIVE. 
Diese Prozedur dient zum schneilen und bequemen Ansprechen der Archivtask. 



TASK PROC printer 

Liefert den Internen Taskbezeichner der aktuelien Task mit Namen PRINTER. 
Diese Prozedur dient zum schneilen und bequemen Ansprechen des Druckspoo- 
lers. 




TASK PROC public 

Liefert den internen Taskbezeichner der Task PUBLIC. 



TASK PROC supervisor 

Liefert den internen Taskbezeichner des Supervisors. 



4-24 



GMD 



TEIL 4 : Kommandosprache 



TEXT PROC nanie (TASK CONST task) 

Liefert den Namen von 'task'. Die Task muB noch im System existieren, sonst ist 
der Name nicht mehr bekannt. Falls die 'task' noch nicht im eigenen Katalog 
enthalten ist, wird er aktualisiert. 




PROC renaine myself (TEXT CONST neuer name) 

Name der eigenen Task wird in 'neuer name' gedndert. Wirkt wie LOschung und 
Wiedereinrichten der Task in Bezug auf alle TASK VAR's die sich auf diese Task 
t)eziehen. 

FEHLER : Task existiert bereits 
Name unzuldssig 
= > anderen Namen wdhlen 



PROC reserve (TASK CONST task) 

Reservieren einer Task fur den ausschlieBlichen Dialog mit der Task, in der das 
Kommando gegeben wurde. 

PROC reserve (TEXT CONST message. TASK CONST task) 

Wie 'reserve (TASK CONST task)' mit Ubergat^e einer 'message'. 



Die reservierte Task muB ein spezieller Manager, (z.B. /"DOS'* aus dem Werkzeug 
MS -DOS -DAT) sein I 
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4.2.4 Handhabung von Dateien 




PROC copy (TEXT CONST quelle, ziel) 

Kopiert die Datei 'quelle' in eine neue Datei mit dem Namen 'ziel' in der Benut- 
zer-Task. 

FEHLER : "ziel" existiert bereits 
"quelle" gibt es nicht 
zu viele Dateien 



PROC forget (TEXT CONST daleiname) 

LOschen einer Datei mit dem Namen 'dateiname' in der Benutzer-Task. 
FEHLER : 'datei' gibt es nicht 



PROC fdnist (THESAURUS CONST thesaurus) 

LOscht die im 'thesaurus' enthaltenen Dateien in der Benutzer-Task. 

Im Dialog erfolgt vor dem LOschen einer Datei standardmABig die Abfrage: 



qit> kofflmando : 
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PROC list 

Listet alie Dateien der Benutzer-Task mit Namen und Datum des letzten Zugriffs 
auf dem Terminal auf. 



PROC list (TASK CONST task) 

Listet alle Dateien der angeget)enen 'task' mit Namen und Datum der letzten 
ArKlerung auf dem Terminal auf. Die Task muB Manager sein. 



PROC list (RLE VAR lists) 

Listet alle Dateinamen in die Datei 'liste', die mit 'output'(s. 5.3.5) assoziiert sein 
muB. 



PROC list (HLE VAR lisle, TASK CONST managBr) 

Listet alle Dateien der Task 'manager' mit Namen und Datum der letzten Ande- 
rung in die Datei 'liste*. 



gib kaumandto : 
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PROC rename (TEXT CONST altamame. neuemame) 

Umbenennen einer Datei von 'altername' in 'neuemame'. 



FEHLER : "neuername" gibt es bereits 
"altername" gibt es nicht 
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4.2.5 Editor - Prozeduren 



PROC edit (TEXT CONST dalDiname) 

Ruft den Editor mit 'dateiname' auf. 



PROC edit 

a) Im Monitor: 

Ruft den Editor mit den zuietzt verwandten Dateinamen auf. 

b) Im Editor: 

Der Dateiname wird erfragt. 

Fur jedes 'edit' gilt: 

Wurde 'edit' zum ersten Mai aufgerufen, nimmt das Fenster den gesamten Bild- 
schirm ein. Bei erneutem 'edit' - Aufruf wird ein Fenster nach rechts unten ab der 
aktuellen Cursor - Position erOffnet. 



PROC edit (THESAURUS CONST t) 

Editieren aller in dem Thesaurus 't' enthaitenen Dateien nacheinander. 



Weitere 'edit -Prozeduren', die z.B. Variation der FenstergrOBe etc. zulassen, sind 
in 5.4.6 beschrieben. 
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PROC editgot (TEXT VAR editsatz) 

Ausgabe einer (Kommando)zeile, in dor Editorfunktionen zur Verfugung stehen 
siehe Toil 5.5.1.4. 



PROC show (TEXT CONST dateiname) 

Die Datei wird am BikJschirm gezeigt. Position ierung und Suchen funktionieren wie 
in 'edit', Aktionen die Anderungen in der Datei t)ewirken wOrden, werden nicht 
angenommen. 



PROC show 

'Show' auf der zuletzt k^earbeiteten Datei. 
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PROC kommando auf taste togen (TEXT CONST taste, elan progranvn) 

Die Taste 'taste' wird mit dem angegebenen ELAN - Programm belegt. Durch WBI^ 
iliilii wird das Programm direkt ausgefuhrt. 



qiti koiMiMindo : 

kdmmdndt) auf taste legen (♦*a***"*fetch (SOH£ archive ^ archive)**) . 



TEXT PROC kommando auf taste (TEXT CONST taste) 

Falls 'taste' mit einem ELAN - Programm belegt 1st, lietert die Prozedur den 
Programmtext, andernfalls den ieeren Text niltext. 



pat (kenMkandd auf taste{**f**)) 



BOOL PROC taslB enthaelt kommando (TEXT CONST taste) 

Liefert TRUE falls 'taste' mit einem ELAN - Programm belegt ist. 
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PROC lemsequenz auf taste legen (TEXT CONST taste, sequenz) 

'taste' wird mit der Zeichenfolge 'sequenz' t)elegt. Durch W80 lBt$l9 wird die 
Zeichenfolge an der aktuellen Position ausgegeben. 

Als Zeichenfolge sind naturlich auch einzelne Zeichen und EUMEL -Codes zulfts- 
sig. 

Die vom System vorbelegten Tasten sind in 3.4 'Zeichen schreiben' aufgelistet. 



'i;.giM.kpflfflt^^ 

lernsequenz «uf tast^ legen I'^yi^y^qib kowmando i^lJ^^2^^2^^) 




TEXT PROC lemsequenz auf taste (TEXT CONST taste) 

Liefert die auf 'taste' gelegte Zeichenfolge. 




PROC std tastenbelegung 

Die Standard -Tastenbelegung (s.3.4) wird (wieder) hergestellt. 



PROC word wiap (BOOL CONST b) 

Der automatische Zeilenumbruch wird durch 'word wrap (FALSE)' aus - und durch 
'word wrap (TRUE)' eingeschaltet. Wird diese Prozedur w&hrend des Editierens 
aufgerufen, gilt die Einstellung fur die aktuelle Textdatei. Wird die Prozedur als 
Monitor -Kommando gegeben, so gilt die Eingabe als Voreinstellung fur neue 
Dateien. 
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4.2.6 Dateitransfer 

Unter diesem Abschnitt sind diejenigen Prozeduren beschrieben, die der simplen 
Kommunikation mit Manager -Tasks dienen: Holen Oder Senden einer Dateikopie. 
Ldschen in der Manager - Task. 

ACHTUNG : FOr alle Prazeduren gilt* falls die Manager-Task nicht oxlstiert wird eine 
Fehtemieklung erzeugt existiert eine Task des angegebenen Namens, die aber nk:ht 
ManagBrtask ist, so terminiefen die Prazeduren nicht! 



PROC fetch (TEXT CONST dalBiname, TASK CONST manager) 

Kopiert die Datei 'dateiname' aus der Task 'manager' 

PROC fetch (THESAURUS CONST th, TASK CONST mananer) 

Kopiert alle Dateien, deren Namen im Thesaurus th enthalten sind, aus der Task 
'manager*. 



gib koitkmando : 

f«tch<ALL(l2/'*PUBtIC''), IZ/^PUfitlC^) 



Mit diesem Kommando warden (in einem EUMEL Netz) alle Dateien der Task 
'PUBLIC des Rechners mit der Stationsnummer 12 in diesem Netz kopiert. 
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fet<ih($QHE dtdhive , atchive) 



Bietet den Thesaurus von 'ARCHIVE' an, nach Auswahl werden alie Dateien deren 
Ncunen nicht gelOscht wurden, von der Diskette kopiert. 



PROC fetch (TEXT CONST daleiname) 

Kopiert die Datei 'dateiname' aus der Task 'father' 



PROC fetch (THESAURUS OOHST th) 

Kopiert alle Dateien, deren Namen in 'th' sind aus der Task 'father'. 




PROCfetchall 

entspricht: fetch (ALL father, father) 



PROC fBlchall (TASK CONST managBr) 

entspricht: fetch(ALL manager, manager) 



4-34 



GMD 



TEIL 4 : Kommandosprache 



mm 

PROC save (TEXT CONST dateiname. TASK CONST manager) 

Kopiert die Datei 'dateiname' in die Task 'manager' 



PHOC save (THESAURUS CONST th. TASK CONST manager) 

Kopiert alle Dateien. deren Namen im Thesaurus th enthalten sind, in die Task 
'manager'. 



qih kammando i 
a#vfe<all, (12/*^l>ti8LlC^)> 



Mit diesem Kommando warden (in einem EUMEL Netz) alle Dateien der eigenen 
Task in die Task 'PUBLIC des Rechners mit der Stationsnummer 12 in diesem 
Netz kopiert. 



gib ktsAmar^dd : 

aavft<SOHC myaelf, fflaf;^ag»r) 



Bietet den eigenen Thesaurus an, nach Auswahl warden alle Dateien deren 
Namen nicht gelOscht wurden, zur Task 'manager' kopiert. 



PROC save (TEXT CONST dateiname) 

Kopiert die Datei 'dateiname' in die Task 'father' 



PROC save (THESAURUS CONST th) 

Kopiert alle Dateien, deren Namen in 'th' enthalten sind. in die Task 'father'. 



PROC save 

Kopiert die zuletzt t)eart3eitete Datei in die Task 'father' 
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PROC saveall 

entspricht: save (all, father) 



PROC saveall (TASK CONST manager) 

entspricht: save (ALL myself, manager) 
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PROC erase (TEXT CONST dateiname, TASK CONST manager) 

L6scht die Date! 'dateiname' aus der Task 'manager' 

PROC erase (THESAURUS CONST th, TASK CONST manager) 

Ldscht alle Dateien. deren Namen im Thesaurus th enthalten sind, aus der Task 
'manager'. 

PROC erase (TEXT CONST dateiname) 

LOscht die Datei 'dateiname' aus der Task 'father' 



PROC erase (THESAURUS CONST th) 

Ldscht alle Dateien, deren Namen in 'th' sind. aus der Task 'father' 



PROC erase 

LOscht die zuletzt bearbeitete Datei aus der Task 'father' 



GMD 



4-37 



EUMEL - Benutzerhandbuch 



Das Kommando 'print* beinhaltet den Auftrag an die Task 'PRINTER* die enthal- 
tene(n) Datei(en) auszudrucken. 

Voraussetzung ist naturlich, daB die Druckersoftware ordnungsgemdB benutzt 
wurde, um 'PRINTER' einzurlchten. Siehe dazu Systemhandbuch Teil 6. 



PROC print (TEXT CONST dateiname) 

Kopiert die Datei 'dateiname' in die Task 'PRINTER'. 



PROC print (THESAURUS CONST th) 

Kopiert alle Dateien, deren Namen im Thesaurus 'th' enthalten sind, in die Task 
•PRINTER*. 



PROC print 

Kopiert die zuletzt bearbeitete Datei in die Task 'PRINTER'. 
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4.2.7 Passwortschutz 



Der Passwortschutz im EUMEL - System ist in verschiedener Ausprftgung mOgiich. 
Einfachste MOglichkeit ist der Schutz einer Task durch ein Passwort. Falls diese Task 
nicht Manager ist, kdnnen alle Daten und Programme, die nur in dieser Task zur 
Verfugung stehen, auch nur vom Besitzer der Task benutzt werden. 

Ahnlich kann auch von einer Manager -Task aus der gesamte Zweig unterhalb dieser 
Task mit einem Passwort geschutzt werden: t)eispielsweise kann es empfehlenswert 
sein. den Systemzweig komplett zu schutzen, indem in SYSUR ein entsprechendes 
Passwort vereinbart wird. 

Ein Umgehen des Passwortschutzes bei Manager - Tasks (durch Einrichten einer 
Sohn-Task und 'fetchali') wird durch ein 'begin password' verhindert. 

Auch einzelne Dateien lassen sich schutzen, indem Lese/SchreibpasswOrter fur den 
Dateitransfer vereink)Gu1 werden. 

Generell gilt fur die Verwendung von Passworten: 

- Passworte. die zu naheliegend gewdhlt sind (Vorname des Lebenspartners o.Sl.) 
sind meistens sinnlos. falls wirkiich Datenschutz bezweckt ist. 

- Passworte, die so raffiniert sind, daB sogar ihr SchOpfer sie vergiBt, fuhren zu 
100%igem Datenverlust, da die betroffene Task Oder Datei nur noch gelOscht 
werden kann. 

- Die Vereinbarung von "-'* als Passwort bewirkt, daS die entsprechende Aktion 
nicht mehr durchgefOhrt werden kann. Wird z.B. als 'task password' 
eingegeben, so kann die Task nie wieder an ein Terminal gekoppeit werden. 

- PasswOrter kOnnen gedndert werden, indem das entsprechende Kommando noch 
einmal mit dem neuen Passwort gegeben wird. 
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PROC begin password (TEXT CONST passvvort) 

Auf Supervisor -Ebene wird vor Einrichten einer neuen Task ais Sohn der Task in 
der das 'begin password' gegeben wurde, dieses erfragt. 

Das Password vererbt sich auf die hinzukommenden Sohn - Tasks. 



SYSUR 

mair>tenance : 

teglf) password (*^alle» dichf*) 



bewirkt: 




£UMEL Version 



gib supervisor kowmando: 
b^gin (♦*sabotage»/»$YSUR«*) 
Pas9wart:S 



HSC ? — > help 

ESC b -w> begin('*'') 

esc tr — > dOntintfe(**^) 

ESC q ww> break 



ESC h 
ESC 6 
ESC t 



> twit 

> stota^e inth 

> task info 
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PROC enter password (TEXT CONST dalei, schreibpass, lesepass) 

Hiermit k6nnen ausgewAhlte Dateien einer Manager -Task geschutzt werden. Die 
angegebene Datei wird mit Schreib- und Lesepassword versehen. Die Pass- 
wOrter werden in der eigenen Task nicht berucksichtigt. 

Bei einem lesenden Zugriff (fetch) von irgendeiner Task aus auf die entsprechende 
Datei in der Manager -Task mu6 das Lesepasswort, bei schreibendem Zugriff 
(save/erase) das Schreibpasswort vereinbart sein. 















maiitt^itafice : 








«nter pa»»word (^wichtige 


date i , '^si cher ^ , 


'^heit'') 

















PROC enter password (TEXT CONST password) 

Passwort fur den Dateitransfer einstellen. Falls zwei verschiedene Passw6rter fur 
Lesen und Schreiben vereint)art werden sollen, so sind sie als ein Text durch T 
getrennt einzugeben. 



gib konmando ; 

kdmAandd i 
a«ve<SDHE all) 
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PROC family passwoid (TEXT CONST geheim) 

Einstellen eines Passworts fQr den Zweig des Systems , der unterhalb der (Mana- 
ger) Task liegt, in der das 'family password' eingegeben wurde. Dabei erhalten 
alle Tasks, die kein Password Oder dasselbe wie diese Manager -Task haben, das 
'family password'. Tasks in dem Zweig. die ein eigenes anderes besitzen, behal- 
ten dieses. 



Tas*cl 

Ta6k2 family pas6word(*'f ir>getw6g^) 

TAsk22 

Ta6k3 ♦•^ 
Task3i 



bewirkt: 



PUfitlC 
T«akl 

7Ask2 fing»rweg 
Taak22 fingerweg 

Udk31 



4-42 



GMD 



TEIL 4 : Kommandosprache 




PROC task password (TEXT CONST geheim) 

Einstellen eines Passworts fur die Task in der es gegeben wird. 1st eine Task mit 
einem Passwort geschQtzt. so wird durch den Supervisor nach dem 'continue'- 
Kommando das Passwort angefragt (Entsprechend dem 'begin password'). Nur 
nach Eingabe des richtigen Passworts gelangt man in die gewQnschte Task. Das 
Passwort kann durch nochmaligen Aufruf von 'task password' ge^ndert werden, 
z.B. wenn es in regelmABigen AbstAnden gedndert werden muB, um personenbe- 
zogene Daten zu schOtzen. 
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4.2.8 Das Archiv 



Mit dem Terminus 'Archiv* wird beim EUMEL - System ein Diskettenlaufwerk bezelch- 
net, das nur Datensicherungsaufgaben dient. Falls ein Rechner eins von zwei vorhan- 
denen Diskettenlaufwerk als Arbeitsspeicher benutzt, so wird dieses als Hintergrund 
bezeichnet. Falls Sie einen derartigen Rechner benutzen, kOnnen Sie der Installa- 
tionsanleitung entnehmen, welches Laufwerk welcher Aufgabe zugeordnet ist. 

Das Archiv Qbernimmt im EUMEL -System die Verwaltung der langfristigen Daten- 
haltung. Das Archiv soilen Sie benutzen, urn: 

- Sicherungskopien wichtiger Dateien auBerhalb des Rechners zu besitzen; 

- nicht benOtigte Dateien auBerhalb einer Task zu halten (SpeicherpiatzersparnisI); 

- Dateien auf andere Rechner zu ut)ertragen. 

Das Archiv wird im EUMEL -System durch die Task 'ARCHIVE', die das Disketten- 
laufwerk des Rechners verwaltet, realisiert. 

- reservieren archive 

- freigeben release 

- lOschen clear , format 

- prufen check 
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PROC archive (TEXT CONST archrvnanie) 

Reservierung der Task ARCHIVE fur den exklusiven Dialog mit der aufrufenden 
Task, 'archivname' wird bei alien folgenden Archivoperationen mit dem der Disket- 
te zugewiesenen (und hoffentlich auf dem AufkletDer vermerkten) Namen abgegli- 
Chen. 




PROC release (TASK CONST archive) 

Nach diesem Kommando kann die Task 'ARCHIVE' mit ihren Leistungen von einer 
anderen Task in Anspruch genommen werden. Falls dieses Kommando nicht 
geget)en wird, at^er seit 5 Minuten kein Dialog mit 'archive' stattfand, kann eine 
andere Task durch die Anforderung 'archiveCdiskettenname")' das Archiv reser- 
vieren. Durch diese MaBnahme wird verhindert. daB ein vergeBlicher Benutzer bei 
einem System mit mehreren Benutzern das Archiv blockiert. 
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PROC dear (TASK CONST archive) 

Ldschen des Disketten - Inhaltsverzeichnisses und Zuweisung des in der Reservie- 
rung eingegebenen Nainens. 



qtb kamman4o ; 



Durch die AusfQhrung des Kommandos erhdit die eingeiegte Diskette den in der 
Reservierung angegebenen Namen. Das Inhaltsvarzeichnis, das sich auf der 
DisfcetlB befindet. wird galtecht Damit sM die Daten, die sich e^^antueil auf 
dieser DiskeUe befanden, nicht mehr auffindbar. Die Diskette entspricht einer neu 
formatierten Diskette^\ 

Man kann also eine beschriebene Diskette nicht umbenennen, ohne die darauf 
befindlichen Daten zu lOschen. 



Eine Neufornnatieaing ist demnach bei Wiederverwendung der Diskette nk;ht 
notwendig. 



^) Das Kommando 'format' enthftlt impiizit 'clear'. 
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PROC fornnt (TASK CONST archive) 

Formatieren einer Diskette. Vor der erstmaligen Benutzung einer Archivdiskette 
muB diese fomatiert, d.h. in Spuren und Sektoren fOr die Positionierung des 
Schreib-ZLesekopfes des Diskettenlaufwerks eingeteilt werden, urn utwrhaupt ein 
Beschreiben der Diskette zu ermOglichen. Die Einteiiung ist gerflteabhAngig, hAufi- 
ge Formate sind: 

40 Spuren zu je 9 Sektoren (360 K) 
80 Spuren zu je 9 Sektoren (720 K). 

Die Erstbenutzung einer Archivdiskette erfordert nach der Reservierung des Ar- 
chivs das Kommando: 



^ib k<»Miier^l6 i 
archiy»<''dial<naM«'*) ; 



Erst nach einer Kontrollabfrage: 



gib kfunmandfo: 
Archiv ^di^kftan^^ f5e»»atlei'eii t (J/n) 



wird tatsftchiich formatiert und die Diskette steht mit dem Namen 'diskname' fOr 
Archivoperatkxien zur VerfOgung. 
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PROC format (INT CONST code, TASK CONST archive) 

Bei einigen Rechnern ist es mOglich. die Formatierung zu variieren. Falls beim 
Formatieren auf einem solchen Rechner ein anderes als das Standardformat 
erzeugt warden soil, so Ist die Codlerung des gewunschten Formats mitanzuge- 
ben. 



Beispiel: Fur ein Ger&t mit 5,25 Zoll Disketten wdre z.B. einstellbar: 
code 0 : Standardformat 
code 1 : 2D , 40 Spuren . 9 Sektoren 
code 2 : 2D , 60 Spuren , 9 Sektoren 
code 3 : HD , 80 Spuren ,15 Sektoren 

'format (archive)' erzeugt ebenso wie 'format (0,archive)' eine 
standardformatierte Diskette, 'format (3,archive)' erzeugt eine High 
Density Formatierung (HD Floppy t)enutzen!). 

ACHTUNG: Wird eine bereits beschriebene Dtskette noch einmal fonraliert. so 
sind alle Dalen, die auf der Diskette waren, \«r1oren. 

Die Umfdrmatierung einer Diskette (z.B. von 720K auf 300K) auf 
untBTSChiedlkiien Laufwerfcen kann zu Prablemen fOhren. 
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PROC check (TEXT CONST dateiname, TASK CONST task) 

OberprUft, ob die Date! 'dateiname' auf dem Archiv lesbar ist. 



PROC check (THESAURUS CONST t. TASK CONST lask) 

UberprOft, ob die in dem Thesaurus 't' enthaltenen Dateien auf dem Archiv lesbar 
sind. 



Mit diesem Kommando kann nach dem Beschreiben einer Diskette uberpruft wer- 
den, ob die DateKen) lesbar sind. Hierdurch kOnnen also verschmutzte Oder 
beschddigte Disketten erkannt werden. 



9ib kommandio : 

$av6^ (all , atchive) 

^ib kdfBmando : 

ctneck (ALt archive, erchiv«) 
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Beisptel: 



attthlye (**ft6u^) 
format («rch.tve). 



liefert zundchst die Kontollfrage: 



9I& kuKMiaifilQ : 



Nach Eingabe T 



fib ktmMouitx t 
saveall < archive) 

9jt& fcommarHlD ; 
nib ko«aand0 i 

fatc;lY(SmE archive ,arahlve> 



Der Thesaurus des Archivs wird angezeigt: 
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01.04.87 20 K ''handbuch teil 3'^ 
01.05. ft7 32 K ^hafidbu<Jh t6il 4^ 



Zum AbschluB Archiv freigebeni 



qih kQwmanxio : 



GMD 



4-51 



EUMEL - Benutzerhandbuch 



Fehiermeldungen des Archivs 

Versucht man, eine Date! vom Archiv zu hoien, kann es vorkommen, daB das Ar- 
chiv- System 



f^%Qh fdatei^, archive) 



mekjet und den Lese - Vorgang abbricht. Dies kann auftreten, wenn die Floppy 
beschadigt Oder aus anderen QrQnden nicht lesbar ist (z.B. nicht justierte Dlsket- 
ten-Qerftte). In einem solchen Fall vermerkt das Archiv -System intern, daB die Date! 
nicht korrekt gelesen werden kann. Das sieht man z.B. bei 'list (archive)'. Dort ist der 
betreffende Datei-Name mit dem Zusatz 'mit Lese-Fehler' gekennzeichnet. Um 
diese Datei trotzdem zu lesen, muB man sle unter ihrem Dateinamen mit dem Zusatz 
'mit Lese-Fehler' lesen. 



f«tch (♦'datfti mit Lfta^-Ffihlfrr**, archive) 



Die Datei wird in diesem Fall trotz Lese-Fehler (InformationsverlustI) vom Archiv 
gelesen. 
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Weitere Fehlermeldungen des Archivs: 



FEHLER : Lesen unmOglich (Archiv) 

Die Archiv- Diskette ist nicht eingeiegt Oder die TQr des Laufwert(s ist nicht 
geschlossen. 

m > Dislcette einlegen t>zw. TUr schlieBen. 

FEHLER : Schreiben unmOglich (Archiv) 

Die Dislcette ist schreit)oeschutzt. 

s > falls wirklich gewunscht, Schreit)schutz entfernen. 

FEHLER : Archiv nicht angemektot 

Das Archiv wurde nicht angemeklet 

■ > 'archive ("name")' geben. 

FEHLER : Lese-Fehier (Archiv) 
Siehe Lesen unmOglich 

FEHLER : Schreit)fehler (Archiv) 

Die Diskette kann nicht (mehr) beschrieben werden. 
• > Andere Diskette verwenden. 

FEHLER : Speicherengpass 

Im System ist nicht mehr genQgend Platz, urn eine Datei vom Archiv zu 
laden. 

« > ggf. Dateien lOschen. 

FEHLER : RERUN bei Archiv -Zugriff Das System wurde bei einer Archiv -Operation 
durch Ausschalten t>zw. Reset unterbrochen. 

FEHLER : 'dateiname' gibt es nicht 

Die Datei 'dateiname' gibt es nicht auf dem Archiv. 

■ > mit 'list(archive)' Archiv prufen. 

FEHLER : Archiv heiBt ... 

Die eingeiegte Diskette hat einen anderen als den eingegebenen Archivna- 
men. 

= > Kommando 'archive' mit korrektem Namen geben. 
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FEHLER : Archiv wird von Task ... benutzt 

Das Archiv wurde von einem anderen Benutzer reserviert. 
>> Abwarten. 

FEHLER : 'dateiname' kann nicht geschrieben warden (Archiv voil) 
Die Date! ist zu groB fOr die eingelegte Diskette. 
- > Andere Diskette fQr diese Datei nehmen. 

FEHLER : Archiv inkonsistent 

Die eingelegte Diskette hat nicht die Struktur einer Archiv - Diskette. 
« > 'format (archive)' vergessen. 

FEHLER : save/erase wegen Lese-Fehler verboten 

Bei Archiven mit Lese-Fehler sind Schreiboperationen verboten, weil ein 
Erfolg nicht garantiert warden kann. 
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TEIL 5: Programmierung 



5.1 Der ELAN - Compiler 



Der ELAN -Compiler des EUMEL - Systems dient zweierlei Aufgaben: zum einen der 
Ubersetzung von ELAN - Programmer!, zum anderen der Verwaltung der taskeigenen 
Modulbibliothek. 

Diese Moduin, in ELAN Pakete (siehe 2.4.3.4ff.) genannt. stellen als vorubersetzte, 
und damit atxufbereite^^ Prozeduren den Kommandovorrat einer Task dar. 

Der Codebereich einer Task liegt in Ihrem Standarddatenraum (ds4). Die GrOBe dieses 
Codebereiches betrftgt 256K. Der Inhalt besteht zundchst aus den von der Vatertask 
ererbten (durch Kopie des ds4 dieser Task) ModuIn, Im weiteren alien in dieser Task 
neu hinzu insertierten Packeten. 

ACHTUNG: DiMCh stAndigBS Neuinsartieren eines Packets kaim der 
ooo o D oro i cn oer ueiioiiBnen lasK zum uoenauien 
OBorecni wnaoni 

Jedes Kommando im EUMEL- System ist der Aufruf einer, in der Schnittstelle eines 
bereits insertierten Packetes stehenden, Prozedur. 

KommarxJos fOr den ELAN - Compiler: 

- Obersetzen do , insert , run , runagain 

- Protokollieren check , checkon/off , 

prot . protoff , warnings on/off 



1) Die von anderen Systemen her gewohnten Phasen 'Binden' und 'Laden' sind 
durch das EUMEL- ELAN- Compiler -Konzept unnOtig. 
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PROC do (TEXT CONST program) 

Ubersetzen und Ausfuhren von 'program' von einem Programm aus. 'program' 
muB ein ausfOhrbares ELAN Programm sein. 



PACKET r«o £IEFIf4£S r«or9«nize all; 

PROC reorganize all(TMESAURUS CONST the»): 

do (PftOC (T£XT CONST) retitgdniz^ »th^6> 

Cie Prozadur ^reorganize* (aiahe 5-52), die einen*) 
<« OateicUUften als Parameter v^rlditgt^ witd attf alle *} 
i* Oateien dea Ttieaawrua 'thea' angewandt. 

£Hb PftOC reorganize allj 

END PACKET raoj 



PROC insert (TEXT CONST daleiname) 

Insertieren eines Oder mehrerer PACKETS aus der Datei 'dateiname'. Der Pro- 
grammtext muB sich in einer Datei befinden. 



PROC insert 

Insertieren eines Oder nriehrerer PACKETS. Der Dateiname ist der zuletzt benutzte 
Dateinanoe. 



PROC insert (THESAURUS CONST Q 

Insertieren aller PACKETS, die in den Dateien des Thesaurus 't' enthalten sind. 
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m 

PROCrun 

Ubersetzen und Ausfuhren eines ELAN - Programms. Der Programmtext mu6 sich 
in einer Date! befinden. Der Dateiname ist der zuletzt benutzte Dateiname. 



PROC run (TEXT CONST dateiname) 

Wie oben. Der Programmtext wird aus der Datei mit dem Namen 'dateiname' 
geholt. 



PROC runagain 

Nochmaliges AusfOhren des zuletzt mit 'run' ubersetzten ELAN - Programms. 
Wurde in der letzten Ut)ersetzung ein Fehler gefunden, erfolgt die Meldung: 

FEHLER : '*run again nicht mOglich' 
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BOOL PROC check 

Informationsprozedur. die TRUE liefert, wenn 'check' eingeschaltet ist. 
PROC check on 

Einschatten der Generierung von Zeilennummern durch den ELAN ~ Compiler. Der 
bei der Obersetzung erzeugte Code wird ca. 25% umfangreicherl 
Voreinsteliung im 'PUBLIC - Zweig: 'checl< on'. 

PROC check off 

Ausschalten der Generierung von Zeilennummern durch den ELAN - Compiler. 
Voreinsteliung im 'SYSUR' - Zweig: 'check off. 



0^ 

BOOL PROC prot 

Informationsprozedur, die TRUE liefert, gdw. 'prof eingeschaltet ist. 
PROC prat (TEXT CONST dalBiname) 

Einschalten des Compilerlistings auf dem Bikjschirm. Das Listing wird gleichzeitig 
in die Datei 'dateiname' geschrieben. 

PROC prat off 

Ausschalten des Listings. 



BOOL PROC wamingB 

Informationsprozedur, die TRUE liefert gdw. 'warnings' eingeschaltet ist. 
PROC wBfninoB on 

Wamungen werden wie Fehlermeklungen ins Notizbuch ausgegeben. 
PROC warningB off 

Wamungen werden nicht mit in das Notiztxjch ausgegeben. 
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5.1 .1 Fehlermeldungen des ELAN - Compilers 

erfolgen stets in der Form: 

COMPILER ERROR: <zahl> 

wobei <zahl> folQende Werte annehmen kann: 

<2ahl> Bedeutung und eventuelle Abhilfa: 

101 Oberiauf der Namenstabelle 

Die Anzahl der Namen aller sichtbaren Pakete ist zu groB cxtor es wurden 
die AnfOhrungstriche eines TEXT -Denoters vergessen. 
« > Keine Abhitfe. 

102 Oberiauf der Symboltabelle 

Die Anzahl der deklarierten Objekte ist zu groB. 

* > Programm in Pakete unterteilen. 

103 Oberiauf des Zwischencodebereiches 

• > Programm in Pakete unterteilen. 

104 Oberiauf der Permanenttabelle 
Zu viele Pakete insertiert. 

■ > Keine (neue Task beginnen). 

106 Paketdatenadresee zu gro6 

Im Paket wird zuviel Platz ( > 64K ) von giobalen Datenobjekten und 
Denotem eingenommen. 

- > Keine Abhilfe. 

107 Lxikale Datenadresse zu grofi 

hn Paket wird zuviel Platz ( > 32K ) von lokalen Datenobjekten belegt. 

- > Keine Abhilfe. 
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204 Uberlauf des Compiierstack 

- > Keine Abhilfe. 

301 Modulnummern - Uberlauf 

Zu viele sichtbare Pakete, Prozeduren und Operatoren ( > 2048 ). 
• > Keine Abhilfe. 

303 

siehe 304 

304 Zu viele Ansprungadressen 

In dem gerade ubersetzten Modul (Prozedur, Operator Oder Paketrumpf) 
werden vom Compiler zu viele Marken bendtigt (mehr als 2000). Marken 
warden z.B. fur die Codegenerierung von Auswahl (IF ...) und Wieder- 
holung (REP ...) gebraucht. Insbesondere bei SELECT - Anweisungen 
werden 'casemax - casemin + 2' Marken bendtigt, wobei 'casenoax' der 
INT -Wert des mcucimalen, 'casemin' der des minimalen CASE-Wertes 
ist. Dieser Fehler ist somit fast immer auf zu viele und/oder zu weit ge- 
spannte SELECT - Anweisungen zuruckzufuhren. 
a> SELECT - Anweisungen uber mehrere Prozeduren verteilen Oder 
Spannwelten verringern. 

305 CodeOberlauf 

Der insgesamt erzeugte sichtt>are Code ist zu umfangreich ( > 256K ). 

- > Keine Abhilfe. 

306 Paketdatenadresse zu groB 

Insgesamt zu viele Datenobjekte in den Paketen ( > 128K ). 

- > Keine Abhilfe. 

307 Temporftre Datenadresse zu groB 

Zu viele (lokale) Datenobjekte in einer Prozedur ( > 32K ). 
» > Prozedur in mehrere unterteilen, so daB die Datenobjekte sich uber 
mehrere Prozeduren verteilen. 

308 Modulcode - Uberlauf 

Ein Modul (Prozedur. Operator Oder Paket - Initialisierungsteil) ist zu groB 
( > 7.5 KB Code). 

* > In mehrere Prozeduren Oder Pakete zerlegen. 

309 Zuviele Paketdaten 

(Insgesamt mehr als 128K Paketdaten) 
« > Keine Abhilfe 



6-6 



GMD 



TEIL 5 : Programmierung 



5.2 Standardtypen 



5.2.1 Bool 



Der Wertebereich fOr Datenobjekte vom Typ BOOL besteht aus den Werten TRUE 
und FALSE. 

BOOL OP AND (BOOL CONST a, b) 

Logisches UND, liefert TRUE gdw. a und b TRUE sind. 




BOOLOPCAND 

Bedingtes logisches UND, entspricht: 'IF a THEN b ELSE false Fl'. Der zweite 
Operand wird nicht ausgewertet, falls er fur das Ergebnis nicht relevant ist. 



BOOL OP COR 

Bedingtes logisches ODER, entspricht: 'IF a THEN true ELSE b Fl'. Der zweite 
Operand wird nicht ausgewertet, falls er fur das Ergebnis nicht relevant ist. 



BOOL CONST tatoe 
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BOOL OP NOT (BOOL CONST a) 
Logische Negation. 



BOOL OP OR (BOOL CONST a. b) 

Logisches ODER, liefeit TRUE gdw. a und/oder b TRUE ist. 



BOOL (XmST true 



BOOL OP XOR (BOOL OONST a. b) 

Exklusives ODER, liefert TRUE gdw. entweder a Oder b TRUE ist. 
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5.2.2 Integer - Arithmetik 



Ein Datenobjekt vom Typ INT belegt im Speicher 2 Bytes. ZulAssige INT - Werte 
sind die ganzen Zahlen von -32768 bis +32767 einschlieBlich. 

Falls grOBere ganze Zahlen benOtigt werden, muB das Packet 'LONGINT', welches 
sich auf dem Archive 'std.zusatz' befindet, nachinsertiert werden (siehe 6.1.2). 

Operationen fOr Integers: 

- Vergletoh -,<>,<,<-,>,>■ 

- Verknupfung deCR , DIV , INCR 

- Sonstiges abs , ABS , initialize random , max , maxint . min , 

minint , MOD . random , sign , SIGN . text 
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INT OP (INT VAR a. INT CONST b) 

Zuweisung. 

BOOL OP m (INT CONST a. b) 

Vergleich. 

BOOL OP <> (INT (XMST a. b) 
Vergleich auf Ungleichheit. 

< 

BOOL OP < (INT CONST a, b) 

Vergleich auf Kleiner. 

BOOL OP < « (INT CONST a, b) 

Vergleich auf Kleiner gleich. 

>• 

BOOL OP > (INT CONST a, b) 
Vergleich auf grOBer. 

>m 

BOOL OP > - (INT CONST a. b) 
Vergleich auf grOBer gleich. 
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INT OP + (INT CONST a) 

Monadischer Operator (Vorzeichen, ohne Wirkung). 

INT OP (INT CONST a, b) 

Acjdition. 



INT OP - (INT CONST a) 

Vorzeichen - Umkehrung. 



INT OP - (INT CONST a, b) 

Subtraktion. 



INT OP * (INT CONST a. b) 

Multiplikation. 



INT OP •* (INT CONST arg, exp) 

Exponentiation mit 'exp' > » 0 



QMD 
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OP DECR (INT VAR links. INT CONST recTits) 

Wirkt wie links : ■ links - rechts 



INT OP DIV (INT CONST a. b) 

INT - Division. 

FEHLER : 
- DIV durch 0 



OP INCR (INT VAR links. INT CONST rectits) 

Wirkt wie links : ■ links rechts 
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INT PROC ab6 (INT CONST argument 
Absolutbetrag eines INT-Wertes. 



INT OP ABS (INT COHST argument) 
Absolutbetrag eines INT-Wertes. 



PROC initialize random (INT CONST werQ 

Initialisieren der 'random' - Prozedur, um nicht reproduziert)are Zufailszahlen zu 
bekommen. Diese 'initialize random' - Prozedur gilt fOr den 'INT- Random Gene- 
rator". 



INT PROC max (INT CONST links, lectits) 
Liefert den GrOBten der beiden INT- Werte. 



INT CONST maxim 

GrOBter INT -Wert im EUMEL- System (32 767). 



INT PROC mm (INT CONST links, rechts) 
Liefert den Kleinsten der beiden INT- Werte. 

ain ( 3.0, 2.0) =s> 2.0 
win (-2.0, 3.0) ==> -2.0 
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INT CONST minint 

Kleinster INT -Wert im EUMEL -System (-32768). 



MQII 

INT OP MOD PNT CONST links, ledils) 
Liefert den Rest einer INT - Division. 

3 MOD 2 ==> 1 
-3 MOD 2 ==> 1 

FEHLER : 
- DIV durch 0 



INT PROG random (INT CONST lower bound, upper bound) 

Pseudo-Zufallszahlen- (generator im Interval! 'upper bound' und 'lower bound' 
einschlieBlich. Es handeit sich hier urn den 'INT Random Caenerator'. 



REAL PROC real (INT CONST a) 
Konvertierungsprozedur. 
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INT PROC Sign (INT CONST argument) 

Feststeilen des Vorzeichens eines INT-Wertes. Folgende Werte warden geliefert: 



INT OP SIGN (INT CONST argument) 

Feststeilen des Vorzeichens eines INT-Wertes. 



TEXT PROC text (INT CONST zahi) 

Konvertierung des INT Wertes 'zahi' in den kOrzest mOglichen Text. Das Vorzei- 
chen bleibt erhalten. 

TEXT PROC text (INT COHST zahl. ttnge) 

Konvertierung des INT Wertes 'zahl' in einen Text der LAnge 'lAnge'. Das 
Vorzeichen bleitrt erhalten. Falls der Text kiirzer als 'lAnge' ist, wird er links 
(vorne) mit Leerzeichen aufgefQIlt, falls er Idnder ist wird 'Idnge' mal 
ausgegeben. 



X: in AS 



argument > 0 
argument : 0 
argument < 0 



==> 1 
==> 0 
==> -1 
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5.2.3 Real-Arithmetik 



FOr den Datentyp REAL gibt es auBer den ubiichen Verknupfungs - und Vergleichs- 
operatk)nen noch eine Anzahl matheniatischer Prozeduren und Operationen. Teilweise 
stehen diese in niehr als einer Version zur Verfugung. 

Jedes Datenobjekt vom Typ REAL belegt im Speicher 8 Byte. 

REALS haben eine 13-stellige Mantisse, die im Rechner dezimal gefuhrt wird. (Das 
heiBt bei Konversionen zwischen interner und TEXT - Darstellung treten keine Run- 
dungsfehler auf.) Der Wertebereich wird durch folgende Eckwerte abgegrenzt: 



9.9999999999990 126 
0.000000000001 



grOBter REAL -Wert 

kleinster positiver REAL -Wert mit x -i- 1.0 > 1.0 
kleinster positiver REAL -Wert > 0.0 
grdBter riegativer REAL -Wert 
kleinster REAL -Wert 



• Vergleiche 

- VerknQpfungen 

- Diverse 



-,<>,<,<-,>,>- 

+ .-.*,/,**, DECR . INCR 

abs , arctan , arctand , cos , cosd , decimal 
exponent , e , exp , floor , frac , initialize 
random , int , In , log2 . k)g10 , max , 
maxreal , min , MOD , pi , random , round , 
sign , SIGN , sin , sind , smallreal , sqrt , 
tan , tand , text 
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REAL OP :« (REAL VAR a, REAL CONST b) 

Zuvveisung. 



m 



BOOL OP - (REAL CONST a. b) 
Vergleich. 



BOOL OP <> (REAL CONST a, b) 
Vergleich auf Ungleichheit. 



BOOL OP < (REAL CONST a, b) 

Vergleich auf Kleiner. 



BOOL OP < « (REAL CONST a, b) 

Vergleich auf Kleiner gleich. 



BOOL OP > (REAL CONST a, b) 
Vergleich auf grOSer. 



BOOL OP > - (REAL OOHST a. b) 
Vergleich auf grOBer gleich. 



GMD 
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REAL OP -1. (REAL CONST a) 

Monadischer Operator (Vorzeichen, ohne Wirkung). 



REAL OP (REAL COHSl a, b) 
Addition. 



REAL OP - (REAL CONST a) 

Vorzeichen - Umlcehrung. 



REAL OP - (REAL CONST a. b) 

Subtraktion. 



REAL OP * (REAL CONST a. b) 

Multiplikation. 



REAL OP / (REAL CONST a. b) 

Division. 

FEHLER : 

- Division durch 0 
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REAL OP (REAL CONST arg. exp) 

Exponentiation. 

REAL OP (REAL CONST arg, INT CONST exp) 

Exponentiation. 



mm 

OP DECR (REAL VAR links, REAL CONST lechts) 

Wirkt wie links : » links - rechts 



mm 

OP IHCR (REAL VAR links, REAL (XMST rectits) 

Wirkt wie links : > links •»- rechts 



GMD 
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REAL PROC abe (REAL CONST wert) 

Absolutbetrag eines REAL- Wertes. 

REAL OP ABS (REAL CONST wert) 
Absolutbetrag eines REAL- Wertes. 



REAL PROC ardan (REAL CONST x) 

Arcus Tangens-Funktion. Liefert einen Wert in Radiant. 



REAL PROC ardand (REAL CONST x) 

Arcus Tangens - Funktion. Liefert einen Wert in Grad. 



REAL PROC 006 (REAL CONST x) 

Cosinus - Funktion. 'x' muB in Radiant angegeben warden. 



REAL PROC OOSd (REAL CONST x) 

Coeinus - Funktion. 'x' muB in Winkelgrad angegeben warden. 




INT PROC decimal exponent (REAL CONST mantisse) 

Liefert aus einem REAL -Wert den dezimalen Exponenten als INT -Wert. 
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jH 



REALPROCe 

Eulersche Zahl (2.718282). 



REAL PROC exp (REAL CONST z) 

Exponentialfunktion. 



REAL PROC floor (REAL CONST reaQ 

Schneidet die Nachkommastellen des REAL-Wertes 'rear ab. 



REAL PROC frac (REAL CONST z) 

Liefert die Stellen eines REAL-Wertes hinter dem Dezlmalpunlct. 



PROC initialize random (REAL CONST z) 

Initialisieren der 'random' - Prozedur mit verschiedenen Werten fOr 'z', urn nicht 
reproduzierbare Zufallszahlen zu belcommen. Diese Prozedur gilt fOr den 
'REAL- Random Generator'. 



INT PROC mt (REAL CONST a) 

Konvertierungsprozedur. Die Nachlcommasteilen werden abgeschnltten. 
Bsp: int (3.9) > > 3 



GMD 
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REAL PROC m (REAL CONST x) 

NatOrlicher Logarithmus. 

FEHLER : 

- In mit negativer Zahl 
Nur echt positive Argumente sind zulAssig. 



REAL PROC log? (REAL CONST z) 

Logarithmus zur Basis 2. 

FEHLER : 

- log2 mit negativer zahl 
Nur echt positive Argumente sind zulAssig. 



REAL PROC loglO (REAL COHST x) 
Logarithmus zur Basis 10. 

FEHLER : 

- log 10 mit negativer zahl 
Nur echt positive Argumente sind zulAssig. 



REAL PROC max (REAL COHST links, rechts) 
Liefert den GrOfiten der beiden REAL-Werte. 



REAL CONST maxreal 
GrOBter REAL -Wert im EUMEL- System {9.i 
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REAL PROC min (REAL CONST links, rectits) 
Liefert den Klelnsten der beiden REAL- Werte. 



REAL OP MOD (REAL CONST links, rechts) 

Modulo -Funktion fOr REALS (liefert den Rest). Belspiele: 

5.0 MOD 2.0 ==> 1.0 
4.5 MOD 4.0 ==> 0.5 



.If 

REAL CONST pi 

Die Zahl pi (3.141593). 



REAL PROC random 

Pseudo-Zufallszahlen- Generator im Intervall 0 und 1. Es handelt sich hier urn 
den 'REAL Random Generator". 



REAL PROC round (REAL CONST real, INT CONST digits) 

Runden eines REAL-Wertes auf 'digits' Stellen. FOr positive Werte wird auf 

Nachkomnnastellen gerundet. Beispiel: 

round (3.14159, 3) 
liefert '3.142'. FOr negative 'digits' - Werte wird auf Vorkomnnastellen gerundet. 

round (123.456, -2) 
liefert '100.0*. Abweichung vom Standard: Es wird mit 'digits' - Ziffern gerundet. 



GMD 
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INT PROC sign (REAL CONST argument) 

Fe8t8tellen des Vorzeichens eines REAL-Wertes. 

INT OP SIGN (REAL CONST argument) 
Feststellen des Vorzeichens eines REAL-Wertes. 



REAL PROC Sin (REAL CONST x) 

Sinus -Funktion. 'x' muB in Radiant (BogenmaB) angegeben werden. 



REAL PROC Bind (REAL CONST x) 

Sinus -Funktion. 'x' muB im Winkelgrad angegefc)en werden. 




REAL PROC smaUreal 

Kleinster darstellbarer REAL -Wert im EUMEL -System fOr den 

1.0 - smallreal <> 1.0 
1.0 -I- smallreal <> 1.0 

gilt (1.0E-12). 



REAL PROC sqrt (REAL CONST z) 

Wurzel-Funktion. 

FEHLER : 

- sqrt von negattver Zahl 
Das Argument muB grOBer gleich 0.0 sein. 
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IBI 

REAL PROC lan (REAL CONST x) 

Tangens - Funktion. *x' mu6 in Radiant angegeben warden. 



REAL PROC tand (REAL CONST x) 

Tangens - Funktion. 'x' muB in Winkelgrad angegetsen werden. 
TEXT PROC text (REAL CONST reaQ 

Konvertierung eines REAL-Wertes in einen TEXT. Ggf. wird der TEXT in Expo 
nenten - Darstellung geliefert. 

TEXT PROC text (REAL CONST real, tonge) 

Konvertierung eines REAL-Wertes in einen TEXT. Der TEXT wird in Exponen- 
ten - Darstellung geliefert. Urn diese Darstellung zu ermdglichen ist der Wert 
'laenge' gr06er Oder gleich 8 anzugeben. 

TEXT PROC text (REAL CONST real, INT CONST laenge. fracs) 

Konvertierung eines REAL-Wertes in einen TEXT. Dabei gibt 'laenge' die LAnge 
des Resultats einschlieBlich des Dezimalpunktes und 'fracs' die Anzahl der Dezi- 
malstellen an. Kann der REAL -Wert nicht wie gewQnscht dargestellt werden, wird 

laenge ♦ 

geliefert. 



QMD 
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5.2.4 Text 



Jedes Datenobjekt vom Typ TEXT besteht aus einem festen Teii von 16 Bytes und 
mOglicherweise aus einem flexiblen Teil auf dem Heap. Im festen Teil werden Texte 
bis zur LAnge von 13 Zeichen untergebracht. Wenn eine TEXT - Variable einen Wert 
mit mehr als 13 Zeichen LAnge annimmt, werden alie Zeichen auf dem Heap unterge- 
bracht. Genauer ergibt sich folgendes Bild: 

kurzer Text (Lftnge < s 13): 

Heap - Link 2 Bytes 
Textifinge 1 Byte 
Text 13 Bytes 

langer Text (Lflnge > 13): 

Heap -Link 2 Bytes 

255 1 Byte 

Lftnge 2 Bytes 

ungenutzt 11 Bytes 

Wenn eine Variable einmal Platz auf dem Heap bekommen hat, behAlt sie diesen 
vorbeugend auch dann, wenn sie wieder einen kurzen Text als Wert erhAlt. So muB 
wahrscheiniich kein neuer Platz auf dem Heap zugewiesen werden, wenn sie wieder 
idnger wird. Das gilt allerdings nur bis zur ndchsten Garbage Collection auf den 
TEXT -Heap, denn dabei werden alle Heap - Container minimal gemacht bzw. ge- 
lOscht. wenn sie nicht mehr benOtigt werden. Der Platz auf dem Heap wird in Vielfa- 
chen von 16 Bytes vergeben. In Fremddatenrdumen wird in jedem Container neben 
dem eigentlichen Text auch die ContainerlAnge untergebracht. 
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Beispiele: 



TEXT - LAnge Speicherbedarf (Byte) 



0 
13 
14 
16 
30 
31 
46 
47 
62 



16 
16 
32 
48 
48 
64 
64 
80 
80 



Die HeapgrOBe eines Frenxldatenraums berechnet sich als: 

1024 * 1024 - 1048056 - Stat Bytes 

'Stat' ist dat)ei die statische QrOSe der Datenstrulctur, die dem Datenraum aufgeprftgt 
wurde. Bei einem BOUND ROW 1000 TEXT ergibt sich also eine HeapgrOBe von 

1048056 - (1000 * 16) « 1032056 Bytes. 
INT PROG heap size 

Informationsprozedur fOr die GrOBe (in KB) des TEXT - Heaps. 
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TEXT- Operationen: 

- Vergleich 

- Verkettung 

- Verftnderung 



«,<>,<,<=.>,>« 
LEXEQUAL . LEXGREATER , 
LEXGREATEREQUAL 

+ , * , CAT 

Change , change all , code , compress , delete 
char , Insert char , length , LENGTH , max 
text length , pos , real , replace , SUB , 
subtext , text 
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Der EUMEL-Zeichensatz 



Das EUMEL System definiert einen Zeichensatz. der gewdhrleistet, daB gleiche Text- 
zeichen auf alien Maschinen gleich codiert werden. 

Die interne Darstellung wird durch die folgende EUMEL - Codetat)elle 
beschrieben. Der Zeichensatz t^eruht auf dem ASCII - Zeichensatz mit Erweiterungen. 
Der in der Tabelle freie Bereich (z.B code(127) bis code(213)) ist nicht einheitlich 
verfugbar und wird deshalb nicht beschrieben. Die Codierung bildet mithin auch 
Grundlage fOr Vergleiche und Sortierungen. 

Die Korrekte Darstellung dieser Zeichen auf Bildschirm. Drucker etc. setzt naturlich 
eine korrekte Konfiguration der Qerftte voraus. Die Anpassung eines Ger&ts an diesen 
Zeichensatz ist im EUMEL - Systemhandbuch in Tail 2 beschrieben. 

fl 1 2 a i & fi z fi a 

3 SP I " f $ % A ' 

4 ( ) • ♦ , - . / 0 1 
523466789 

6 <«>? ^ABCOE 
7FQHI JKLMNO 
8PQRSTUVWXY 

9 Z I \ I • _ ' a b c 

10 d e ( g h I J k I m 
llnopqr at uvw 
12 K y 2 { I ) - 

13 



20 



21 



A 



0 



i 0 u 



22 



k 



f SP 



23 



24 



25 



6 



GMD 



5 - 



29 



EUMEL - Benutzerhandbuch 



TEXT OP (TEXT VAR a, TEXT CONST b) 

Zuweisung. 



BOOL OP - (TEXT CONST links, rachts) 

Verglaich von zwei Texten auf Gleichheit (Texte mit ungleichen L&ngen sind 
immer ungleich). 



<> 

BOOL OP <> (TEXT CONST links, lecflts) 

Verglaich von zwei Texten auf Ungleichheit (Texte mit ungleichen Ldngen sind 
stets ungleich). 



BOOL OP < (TEXT CONST links, rechts) 

Vergleich zweier Texte auf Kleiner ('links' kommt lexikographisch vor 'rechts'). 



<4*r- 

BOOL OP < » (TEXT CONST links, rechls) 

Vergleich von zwei Texten auf Kleiner gleich ('links' kommt lexikographisch vor 
Oder ist gleich 'rechts'). 



BOOL OP > (TEXT CONST links, rectits) 

Vergleich zweier Texte auf grOBer ('links' kommt lexikographisch nach 'rechts'). 



BOOL OP > - (TEXT CONST links, rechts) 

Vergleich zweier Texte auf grOBer glek:h ('links' kommt lexikographisch nach Oder 
ist gleich 'rechts'). 



5-30 



GMD 



TEIL 6 : Programmlerung 



BOOL OP LEXEQUAL (TEXT CONST links, rectits) 
Prtifung auf lexikalische Gleichheit. 



BOOL OP LEXGREATER (TEXT CONST linlcs. rechts) 
PrQfung ob der Text 'links' lexikaiisch gr66er als 'rechts' ist. 



BOOL OP LEX(3REATEREQUAL (TEXT COHST links. rechtS) 

PrOfung ob der Text 'links' lexikaiisch grOBer Oder gleich dem Text 'rechts' ist. 



Die drei Operatoren prufen nach folgenden Regein: 

- Buchstaben haben die aufsteigende Reihenfolge 'A' bis 'Z'. Dabei werden kleine 
und groBe Buchstaben gleich behandelt. 

- Umlaute werden wie Qblich ausgeschrieben. (A = Ae usw.) 

(B = ss) 

- Alle Sonderzeichen (auch Ziffern) auBer ' '(Leerzeichen) und ' - ' werden igno- 
riert. diese beklen Zeichen werden gleich behandelt. 



GMD 
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TEXT OP + (TEXT CONST links. iBCtllS) 

Verkettung der Texte 'links' und 'rechts' in dieser Reihenfolge. Die Ldnge des 
Resultats ergibt sk:h aus der Addition der LAngen der Operanden. 



TEXT OP * (INT CONST faktor. TEXT CONST quelle) 

'faktor' fache Erstellung von 'quelle' und Verkettung. Dabei muB 

times >= 0 



sein, sonst wird 'niltext' geiiefert. 



mr 

OP CAT (TEXT VAR links. TEXT CONST rechts) 

hat die gleiche Wirkung wie 

links := links + rechts 

Hinweis: Der Operator 'CAT' hat eine geringere Heap-Belastung ais die Opera- 
tion mit expliziter Zuweisung. 
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PROC change (TEXT VAR senke. TEXT CONST alt. neu) 

Ersetzung des (Teil-) TEXTes 'alt' in 'senke' durch 'neu' bei dem erstmaligen 
Auftreten. 1st 'alt' nicht in 'senke' vorhanden. so wird keine Meldung at)gesetzt 
(Abweichung vom Standard). Die LAnge von 'senke' kann sich dabei ver&ndern. 
Beispiel: 

TEXT VAR mein text :: "EUMEL-Benutzerhandbuch"; 
change (mein text, "Ben", "N"); 

(♦ EUMEL-Nutzerhandbuch ♦) 

PROC Change (TEXT VAR senke. INT CONST von. bis. TEXT CONST neu) 

Der TEXT 'neu' wird in den TEXT 'senke' anstatt des TEXTes, der zwischen 'von' 
und 'bis' steht, eingesetzt. Die Ldnge von 'senke' kann sich dak)ei verdndern. 
Beispiel: 

TEXT VAR mein text :: "EUMEL-Benutzerhandbuch" ; 
change (mein text, 7, 9, "N"); (♦ wie oben ♦) 



PROC change all (TEXT VAR senke. TEXT CONST alt. neu) 

Der Teiltext 'alt' wird durch 'neu' in 'senke' ersetzt. Im Unterschied zur 'chan- 
ge' -Prozedur findet die Ersetzung nicht nur bei dem erstmaligen Auftreten von 
'alt' statt, sondem so oft. wie 'alt' in 'senke' vorhanden ist. Beispiel: 



TEXT VAR X :: "Das ist ein Satz"; 

change all (x, " ", ""); (♦ DasisteinSatz *) 



GMD 
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TEXT PROC code (INT CONST code) 

Wandelt einen INT - Wert 'code' in ein Zeichen urn. 'code' mu6 
0 <= code <= 255 

sein. 

INT PROC code (TEXT CONST text) 

Wandelt ein Zeichen 'text' in einen INT- Wert urn. 1st 

LENGTH text <> 1 

dann wird der Wert - 1 geliefert (also bei mehr als ein 2!eichen Oder niltext). 
(Codetabelle auf Seite 5-29) 



TEXT PROC compress (TEXT CONST text) 

Liefert den TEXT 'text' ohne ftihrende und nachfolgende Leerzeichen. 



PROC delete char (TEXT VAR string, INT CONST delete pos) 

Ldscht ein Zeichen aus dem Text 'string' an der Position 'delete pos'. Fur 

delete pos <= 0 
Oder 

delete pos > LENGTH string 
wird keine Aktion vorgenommen. 
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PROC insert char (TEXT VAR string, TEXT CONST char.INT CONST insert pes) 

Fugt ein Zeichen 'char' in den Text 'string' an der Position 'insert pos' ein. Fur 

insert pos > LENGTH string + 1 

wird keine Aktion vorgenommen. Daher ist es mOglich, mit dieser Prozedur auch 
am Ende eines Textes (Position: LENGTH string + 1) ein Zeichen anzufugen. 

INT PROC length (TEXT CONST text) 

Anzahl von Zeichen ("Ldnge") von 'text' einschlieBlich Leerzeichen. 



INT OP LENGTH (TEXT CONST text) 

Anzahl von Zeichen ("Lange") von 'text' einschlieBlich Leerzeichen. 



INT CONST max text length 

Maxiniale Anzahl von Zeichen in einem TEXT (32 OCX)). 



GMD 
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00- 

INT PROC po6 CTEXT CONST quelle, pattern) 

Liefert die erste Position des ersten Zeichens von 'pattern' in 'quelle', falls 'pat- 
tern' gefunden wird. Wird 'pattern' nicht gefunden Oder ist 'pattern' niltext, so wird 
der Wert '0' geliefert. Beispiel: 

TEXT VAR tl :: "abcdefghi jk . . .xyz" , 

t2 :: ''cd"; 
... pos (tl, t2) ... (♦ liefert 3 ♦) 
... pos (t2, tl) ... (♦ liefert 0 ♦) 



INT PROC pos (TEXT CONST quelle. paOBrn. INT CONST von) 

Wie obige Prozedur. jedoch wird erst ab der Position 'von' ab gesucht. Dabei gilt 
folgende Einschrdnkung: 

length (pattern) < 255 



INT PROC p06 (TEXT CONST quelle, low char, high char. INT CONST von 

Liefert die Position des ersten Zeichens 'x' in 'quelle' ab der Position 'von', so daB 

low char <= x high char 

'low char' und 'high char' mussen TEXTe der Ldnge 1 sein. Wird kein Z^ichen in 
'quelle' in dem Bereich zwischen 'low char' und 'high char' gefunden. wird der 
Wert '0' geliefert. Beispiel: 



(«Su6he nacn dtm ersten Zeicheit <> blank nach eiri^r Leerdpalte*) 
TEXT VAR zeile :: >'81a8Ia Hier gehts welter*; 

tHT VAft pd^ ^t^te^ blank po^ (2e41e^ ^ 
ende leervpelte 

pde it^ilB^ i>«»33»i>^»j»^j4»i>^ ef6tes blank )i 
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REAL PROC real (TEXT CONST text) 

Konvertierung eines TEXTes 'text' in einen REAL - Wert. Achtung: Zur Zeit werden 
keine UberprOfungen vorgenommen, d.h. in dem TEXT muB ein REAL -Wert 
stehen. 




PROC replaoe (TEXT VAR senke. INT CONST position. TEXT CONST quelle) 

Ersetzung eines Teiitextes in 'senke' durch 'quelle' an der Position 'position' in 
'senke'. Es muB gelten 

1 <= position <= LENGTH senke 

d.h. 'position' muB innerhalb von 'senke' liegen und 'quelle' muB von der Posi- 
tion 'position' ab in 'senke' einsetzk)ar sein. Dabei bleibt die L&nge von 'senke' 
unverftndert. 



TEXT OP SUB (TEXT CONST text. INT CONST pes) 
Liefert eIn Z^ichen aus 'text' cm der Position 'pos'. Entspricht 

subtext (text, pos, pos) 

Anmerkung: Effizienter als obiger Prozedur-Aufruf. FQr 

pos <= 0 

pos > LENGTH text 
wird nittext gellefert. 



GMD 
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TEXT PROC subtext (TEXT CONST quelle. INT CONST von) 

Teiltext von 'quelle', der bei der Position 'von' anfAngt. Die L&nge des Resultats 

ergibt sich also zu 

LENGTH quelle - von + 1 

d.h. von der Position 'von' bis zum Ende von 'quelle', 'von' muB innerhalb von 
'quelle' liegen. 1st von < 1. dann wird 'quelle' geliefert. Falls von > LENGTH 
quelle ist, wird niltext geliefert. 



TEXT PROC subtext (TEXT CONST quelle, INT CONST von. bis) 

Teiltext von 'quelle' von der Position 'von' bis einschlieBlich der Position 'bis'. Die 
LAnge des Resultats ist also 

bis - von + 1 

Dabei muB gelten 

1 <= von <= bis <= LENGTH quelle 

d.h. die Positionen 'von' und 'bis' mussen in dieser Reihenfolge innerhalb von 
'quelle' liegen. Ist 

bis >r LENGTH quelle 

wird 'subtext (quelle, von)' ausgefOhrt. Fur die Bedingungen fur 'von' siehe vor- 
stehende Beschreibung von 'subtext*. 
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TEXT PROC text (TEXT CONST quelle. INT CONST laange) 

Teiltext aus 'quelle' mit der Lftnge 'laenge', beginnend bei der Position 1 von 
'quelle'. Es muB gelten 

1 <: laenge <r LENGTH quelle 

d.h. der gewQnschte Teiltext muB aus 'quelle' ausblendbar sein. 
Wenn gilt: 

laenge > LENGTH quelle 

wird der zu liefernde TEXT mit der an 'laenge' fehlenden Zeichen mit Leerzeichen 
aufgefOllt. 

TEXT PROC text (TEXT CONST quelle, INT CONST teange. von) 

Teiltext aus 'quelle' mit der LAnge 'laenge', beginnend an der Position 'von' in 
dem TEXT 'quelle'. Entspricht 

text (subtext (quelle, von, LENGTH quelle) , laenge) 

Es muB 

laenge >= 0 

1 <= von <s LENGTH quelle 

gelten. d.h. 'von' muB eine Position angeben, die innerhalb von 'quelle' liegt. Fur 

laenge > LENGTH quelle - von + 1 

also wenn die angegebene Ldnge 'laenge' gr6Ber ist als der auszublendende Text, 
wird das Resultat rechts mit Leerzeichen aufgefullt. Wenn 

laenge < LENGTH quelle - von + 1 

d.h. wenn die angegebene Lflnge kleiner ist als der Teiltext von 'von' bis zum 
letzten Zeichen von 'quelle', wird das Resultet mit der LAnge 

LENGTH quelle - von 1 

geliefert. 



GMD 
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5.3 Der Datentyp FILE (Textdateien) 



Der Datentyp FILE definiert Dateien von sequentieller Struktur, die Texte enthalten. 
Ein Objekt vom Datentyp FILE ist charakterisiert durch: 

1) seine Betriebsrichtung input « nur lesender Zugriff 
(TRANSPUTDIRECTION) output » nur schreit)ender Zugriff 

modify = lesender und schreitsender Zugriff. 

2) seinen Namen. 

Betriebsrichtung und Name werden in der Assoziierungsprozedur 'sequential file' 
(siehe Kap 2.8.2) festgelegt. 



TEXT >fAR name auagabe ; 

FILE VA8 f :^ sequential file< output, frame) ; 



Das Festlegen einer Betriebsrichtung impliziert eine Kontrolle der Benutzung der 
betreffenden Datei. hilft somit Programmierfehler zu vermeiden. 

ACHTUNG : Alto Prozeduren. die auf FILEs zugreifen, verlangen Objekte vom Typ 
FILE VAR, da die Lese/Schreiboperationen als ftndemd betrachtet wer- 
den (mOssen). 
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5.3.1 Assoziierung 




RLE PROC sequential file 

(TRANSPUTDIRECnON CONST mode. DATASPACE VAR ds) 

Assoziierung einer sequentiellen Datei mit dem Dataspaoe 'ds' und der Betriebs- 
richtung 'mode' (vergl. 'modify', 'input' bzw. 'output'). Diese Prozedur dient zur 
Assoziierung eines temporflren Datenraums in der Benutzer - Task, der nach der 
Beendigung des Programmlaufs nicht mehr zugriffsfdhig ist (weil der Name des 
Datenraums nicht mehr ansprechbar ist). Somit muB der Datenraum explizit vom 
Programm gelOscht werden. 



RLE PROC sequential file 

(TRANSPUTDIRECTION CONST mode.TEXT CONST name) 
Assoziierung einer sequentiellen Datei mit dem Namen 'name' und der Betriebs- 
richtung 'mode' (vergl. 'input' bzw. 'output'). Existiert der FILE bereits, dann wird 
mit 'input' auf den Anfang des FILEs, bei 'output' hinter den letzten Satz der datei 
positioniert. Existiert dagagen der FILE noch nicht und ist die 
TRANSPUTDIRECTION 'output' Oder 'modify', wird ein neuer FILE eingerich- 
tet. 

FEHLER : "name" gibt es nicht' 

Es wurde versucht, einen nicht vorhandenen FILE mit 'input' zu asso- 
ziieren. 
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PROC input (RLE VAR Q 

Andern der Verarbeitungsart von 'modify' Oder 'output' In 'input'. Dabei wird auf 
den ersten Satz der Date) positioniert. 

TRANSPUTDIRECnON CONST input 

Assoziierung in Zusammenhang mit der Prozedur 'sequential file' einer sequentiel- 
len Datei mit der TRANSPUTDIRECTION' 'input' (nur lesen). 



PROC output (RLE VAR file) 

Andern der Verartieitungsart von 'input' Oder 'modify' in 'output*. Dabei wird hinter 
den letzten Satz der Datei positioniert. 

TRANSPUTDIRECTION CONST output 

In Verbindung mit der Prozedur 'sequential file' kann eine Datei assoziiert warden 
mit der Betriebsrichtung 'output' (nur schreiben). 



PROC modify (RLE VAR f) 

Andern der Betriet)srichtung von 'input' Oder 'output' in die Betriet)srichtung 'mo- 
dify'. 

TRANSPUTDIRECTION CONST modify 

Diese Betriebsrichtung eriaubt das Vorw^lrts- und Ruckwdrts - Positionieren und 
das beliebige Einftigen und LOschen von Sdtzen. 'modify' wird fUr die Assoziie- 
rungsprozedur 'sequential file' bendtigt. 
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5.3.2 Informationsprozeduren 



BOOL PROC eor (HUE CONST file) 

Informationsprozedur auf das Ende eines FILEs. Liefert den Wert TRUE, sofern 
hinter den letzten Satz eines FILEs positioniert wurde. 

Mill 

INT PROC line no (RLE CONST file) 
Liefert die aKtuelle Zeilennummer. 



PROC lines (RLE VAR f) 

Liefert die Anzahl der Zeilen der Datei 'f. 



TEXT PROC rieodline (RLE CONST Q 
Liefert den Inhalt der Kopfzeile der Datei 'f. 

PROC headline (RLE VAR f . TEXT CONST ueberschrift) 
Setzt 'ueberschrift' in die Kopfzeile der Datei 'f. 
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5.3.3 Betriebsrichtung INPUT 



In der Betriebsrichtung 'input' sind nur Leseoperationen auf der Datei zugeiassen. Die 
Assoziierungsprozedur 'sequential file' bewirkt: 

1) Falls die Eingabedatei noch nicht existiert, wird eine Fehlermeldung ausgegeben. 

2) Falls es eine Datei des Namens gibt, wird auf das erste Zeichen des ersten 
Satzes positioniert. 



PROC get (RLE VAR f, INT VAR number) 

Lesen des n&chsten Wortes aus der Datei 'f und Konvertierung des Wortes zu 
einem Integer - Objekt. 

PROC get (HLE VAR f . REAL VAR number) 

Lesen des nAchsten Wortes aus der Datei 'f und Konvertierung des Wortes zu 
einem Real-Objekt. 



PROC get (RLE VAR f, TEXT VAR text) 

Lesen des nAchsten Wortes aus der Datei 'f. 

PROC get (RLE VAR f. TEXT VAR text. TEXT CONST delimiter) 

Lesen eines TEXT-Wertes 'text' von der Datei T, bis das Zeichen 'delimiter' 

angetroffen wird. Ein eventueller Zeilenwechsel in der Datei wird dabei Ubergan- 

gen. 

PROC get (RLE VAR f. TEXT VAR text. INT CONST maxlength) 

Lesen eiries TEXT-Wertes 'text' von der Datei 'f mit 'mcudength' Zeichen. Ein 
eventueller Zeilenwechsel in der Datei wird dabei nicht ubergangen. 
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PROC get line (FILE VAR file, TEXT VAR reoonJ) 

Lesen der ndchsten Zeile aus der sequentieilen Date) 'file'. 

MOgliche Fehler bei Betriebsrichtung 'input': 

'Datei zu' 

Die Datei 'file' ist gegenwArtig nicht assoziiert. 
'Leseversuch nach Dateiende' 

Es wurde versucht, uber die letzte Zeile einer Datei zu lesen. 
'Leseversucfi auf output file' 

Es wurde versucht, von einem mit 'output' assoziierten FILE zu lesen. 



'UnzulAssiger Zugriff auf modify- FILE* 
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5.3.4 Betriebsrichtung OUTPUT 



In der Betriebsrichtung 'output' sind nur Schreiboperationen auf der Datei zugelassen. 
Die Assoziierungsprozedur 'sequential file' t)ewirkt: 

1) Falls die Ausgabedatei noch nicht existiert, wird sie angeiegt und auf den ersten 
Satz posltioniert. 

2) Falls es bereits eine Datei des Naniens gibt, wird hinter den letzten Satz positio- 
niert, die Datei wird also fortgeschrieben. 

PROC put (FILE VAR f , INT OONST number) 

Ausgabe eines INT-Wertes 'number' in die Datei 'f. Dabei wird ein Leerzeichen 
an die Ausgabe angefugt. 

PROC put (RLE VAR f . REAL CONST number) 

Ausgabe eines REAL-Wertes 'numt)er' in die Datei 'f. Dabei wird ein Leerzei- 
chen an die Ausgabe angefugt. 

PROC put (RLE VAR f . TEXT CONST text) 

Ausgak)e eines TEXT-Wertes 'text' in die Datei 'f. Dabei wird ein Leerzeichen an 
die Ausgabe angefugt. 



PROC putHne (RL£ VAR file, TEXT CONST reoord) 

Ausgabe eines TEXTes 'record' in die Datei 'file'. Danach wird auf die nAchste 
Zeile posltioniert. 'file' muB mit 'output' assoziiert sein. 
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PmC wrilB (HLE VAR f. TEXT CONST text) 

Schreibt 'text' in die Datei T (analog 'put (f, text)'), aber ohne Trennblank. 
PROC line (RLE VAR file) 

Positionierung auf die nAchste Zeile der Datei 'file*. Wird versucht, ut)er das Ende 
eines mit 'input' assoziierten FILEs zu positionieren, wird keine Aktion vorgenom- 
men. 

PROC line (HUE VAR file. INT CONST lines) 

Positionierung mit 'lines' Zeilen Vorschub in der Datei 'file'. 



FEHLER: "Datei zu I" 

Die Datei 'file' ist gegenwdrtig nicht assoziiert. 

"Schreibversuch auf input -File' 

Es wurde versucht, auf einen mit 'input' assoziierten FILE zu 
schreiben. 



Bei Textdateien, die mit dem Editor weiterbearbeitet warden soilen, ist also zu 
beachten: Eine Ausgabe mit 'put' setzt ein 'blank' hinter die Ausgabe. Falls dieses 
Leerzeichen das letzte Zeichen in der Zeile ist. wird eine Absatzmarke in der Zeile 
gesetzt. Wird mit 'write' Oder 'putline' ausgegeben. steht kein Leerzeichen und 
somit keine Absatzmarke am Zeilenende. 
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5.3.5 Betriebsrichtung MODIFY 



In der Betriebsrichtung 'modify' sind Lese- und Schreiboperationen auf der Datei 
zugelassen. Desweiteren ist beliebiges Positionieren in der Datei eriaubt. Neue Sfttze 
kOnnen an beliebiger Steile in die Datei eingefUgt werden, die sequentielle Strulctur 
der Datei bleibt erhalten. Die Assoziierungsprozedur 'sequential file' bewirkt: 

1) Falls die Ausgat)edatei ncx^fi nicht existiert, wird sie angelegt. 

2) Falls es bereits eine Datei des Naniens gibt, ist undefiniert wo positioniert ist. Die 
erste Positionierung muB explizit vorgenommen werden! 



PROC od (HLE VAR f . INT CONST poeitiGn) 

Positionierung auf die Spalte 'position' innerhalb der alctuellen Zeile. 

INT PROC od (FILE CONST f) 

Liefert die aktuelle Position innerhalb der aktuellen Zeile. 



PROC down (HLE VAR f) 

Positionieren urn eine Zeile vorwftrts. 

PROC down (HLE VAR f . INT CONST number) 

Positionieren urn 'number' Zeilen vorwArts. 



PROC to ime (HLE VAR f , INT CONST number) 

Positionierung auf die Zeile 'number'. 
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■ 

PROC up (HLE VAR f) 

Positicxiieren urn eine Zeile ruckwdrts. 

PROC up (RL£ VAR f. INT CONST number) 

Positionieren urn 'number' Zeilen ruckwArts. 
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PROC delete record (RLE VAR file) 

Der aktuelle Satz der Datei 'file' wird gelOscht. Der foigende Satz wird der aktueile 
Satz. 

PROC insert record (FILE VAR file) 

Es wird sin leerer Satz in die Datei 'file' vor die aktuelle Position eingefugt. Dieser 
Satz kann anschlieBend mit 'write record' t3eschrieben werden (d.h. der neue Satz 
ist jetzt der aktuelle Satz). 



PROC reed record (RLE CONST file. TEXT VAR record) 

Liest den aktuellen Satz der Datei 'file' in den TEXT 'record'. Die Position wird 
dak)ei nicht ver&ndert. 



PROC ¥vritB record (RLE VAR file. TEXT CONST record) 

Schreibt einen Satz in die Datei 'file' an die aktuelle Position. Dieser Satz muB 
t)ereits vorhanden sein, d.h. mit 'write record' kann keine leere Datei beschriet)en 
werden, sondern es wird der Satz an der aktuellen Position uberschrieben. Die 
Position in der Datei wird nicht verlkndert. 
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5.3.6 FILE -Ausschnitte 



Ahnlich den Editorfunktionen 'ESC RUBOUT' und 'ESC RUBIN', die ertauben ganze 
Abschnitte einer Datei zu lOschen und das Qel6schte an anderer Stelie wiedereinzu- 
fUgen, gibt es die MOglichkeit per Programm solche Segniente 
eines 'modify - FILEs' zu verschieben. 

PROC dear remowed (HUE VAR Q 

Das mit 'remove' entfemte Segment wird geldscht und nicht an anderer Stelle 
eingefugt. 




PROG reinsert (HLE VAR 0 

Das mit 'remove' entfernte Segment wird vor die aktuetle Zeile wiedereingefUgt. 



PROC remove (HLE VAR ff. INT CONST size) 

LOscht 'size' Zeilen vor der aktuellen Position aus 'f. Das Segment wird in einen 
internen Puffer geschrieben. 
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PROC reorganize (TEXT CONST dalei) 

Reorganisation von 'datei'. Die durch LOschen und Einfugen aus vielen 
Segmenten bestehende Datei wird zu einem Segment zusammengefugt, die 
aktuelle Position ist danach das erste Zeichen der ersten Zeile. 



Durch diese Prozedur kann ggf. Speicherplatz gespart warden. 
PROC reorganize 

Reorganisation der zuletzt bearbeiteten Datei. 




PROC segments (HLE VAR Q 

Liefert die Anzahl der Segmente von T. Eine groBe Anzahl von Segmenten kann 
iangsamere Zugriffe zur Folge haben. 
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5.4 Suchen und Ersetzen in Textdateien 



Such- und Ersetzungsprozeduren kOnnen sowohl interaktiv beim Editieren (siehe 
dazu 3.3), als auch in Prozeduren. die auf FILEs (siehe 5.3) arbeiten, angewandt 
warden. 

Die dazu dienenden Prozeduren sind im Paket 'pattern match' enthalten. Mit 'Pattern 
Matching' (Muster treffen) wird ein Verfahren bezeichnet Gleichheit von Objekten 
anhand von Regein, denen diese Objekte genugen, zu uberprQfen. 

Da oft nach Texten gesucht werden muB, deren genaue Auspr^gung nicht bekannt ist, 
Oder deren Auftreten nur in einem bestimmten Zusammenhang interessiert, gibt es die 
MOglichkeit feststehende Textelemente mit Elementen ungewisser Ausprdgung zu 
kombinieren, also Textmuster zu erzeugen. 

Um einen Text zu suchen. muB die Suchrichtung und der gesuchte Text Oder ein 
Muster, welches diesen Text beschreibt, angegeben werden. 

- Aufbauen von Textmustem : + , - , OR , any , bound , notion 

- Suchen nach Textmustem down , downety , up , uppety 

- Treffer registrieren LIKE , UNLIKE , at , pattern found 

- Treffer herausnehmen , match , matchend , matchpos , 

somefix , word 

- Andern in Dateien change 



Nach einem erfolgreichen Suchvorgang ist stets auf das erste Zeichen der zu such- 
enden Zeichenkette positioniert. 



Eine besondere Funktion kommt dem 'joker' zu: Dieses Symbol (Defaultwert: steht 
fur eine beliebige Zeichenkette k)eliebiger LAnge. Insbesondere bei Ersetzungsaktionen 
in denen dieses Zeichen zur Musterbeschreibung verwendet wird, ist daher Vorsicht 
geboten und sorgfftltig zu testen. 
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5.4.1 Aufbau von Textmustern 



TEXT OP + (TEXT CONST links. rBChts) 

Verkettung der Texte 'links' und 'rechts' zu 'linksrechts'. Falls das Ergebnis Idnger 
als die maximal zuldssige TextlAnge ist. ist es undefiniert. 

Wenn 'musterl' einen beliebigen Text finden sollte, ( Siehe: PROC any) wird das 
Ende des von 'musterl ' erkannten Textes durch den Anfang des von 'muster2' 
erkannten Textes im Nachhinein definiert. 



TEXT OP - (TEXT CONST alphabet) 

Der Operator liefert das zu 'alphat>et' komplementdre Alphabet, also alle Zeichen 
gem&B der EUMEL Codetabelle (5.2.4), die nicht in 'alphabet' enthalten sind. 
Sinnvoll im Zusammenhang mit der Textprozedur 'any'. 



OR 

TEXT OP OR (TEXT CONST links, rechts) 

Liefert die Alternative von 'links' und 'rechts'. Die Reihenfolge spielt beim Suchen 
keine Rolle. 



Die Textprozedur 'any' liefert einen unt)ekannten Text unbestimmter LAnge. 
Dieser Text sollte entweder durch festen Text sinnvoll eingegrenzt werden, Oder 
direkt eingeschrAnkt werden. 
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Die Textprozedur 'any' liefert einen unbekannten Text unbestimmter lAnge. 
Dieser Text sollte entweder durch festen Text sinnvoll eingegrenzt werden. Oder 
direkt eingeschrankt werden. 



TEXT PROC any 

Beschreibt einen beliebigen Text. 

TEXT PROC any (INT CONST tenge) 

Beschreibt einen beliebigen Text der angebenen Ldnge. 



TEXT PROC any (TEXT CONST alphabet) 

Beschreibt einen beliebigen Text, der nur aus Zeichen besteht, die in 'alphabet' 
enthalten sind. 



TEXT PROC any (INT CONST tenge. TEXT CONST alphabet) 

Beschreibt einen Text der vorgegebenen Ldnge. der nur aus den in 'alphabet' 
vorgegebenen Zeichen besteht. 



Die Textpwjzedur ^any' liefert einen unt)eksnnten Text unbe- 
stiimnter LJnge^ Dies6r T^xt sollte entvfeder durch festen Text 
ainnvoll eingegrenzt werden, Oder direkt eingeechrankt werden. 



Sucht nech bestimwten Artikeln: 'der', 'die% ^daa' etc. 
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TEXT PROC bound 

Bezeichnet ein Muster der LAnge null, das nur am Zeilenanfang Oder am Zeilenen- 
de gefunden wird. Ein Prdfix 'bound' fordert, daB das gesuchte Muster in der 
ersten Spalte beginnen muB, ein Postfix 'bound' fordert, daB das Muster mit dem 
Zeilenende abschlieBt. 



Die Textptozedur ^any^ liefert eiaen unbekannten Text unbe- 
atimmter Lange, Oieaer Text soilte entweder dfurch festen 
Textsinr>voll eingegrertzt werden, Oder direkt eir^geschrankt 
warden r 



liefert Treffer bei eingeruckten Zeilen. 




PROC notion (TEXT CONST suchwort) 

Mit dieser Prozedur kann ein Wort spezifiziert werden, nach dem gesucht werden 
soil. Bei der Suche nach 'suchwort' wird nur dann ein Treffer geliefert, wenn 
'suchwort' als Wort, also begrenzt von ' ' (blank), '.' , ',' Oder anderen Sonderzei- 
Chen ist. 

PROC notion (TEXT CONST suchwort, INT CONST reg) 
Wie oben, der Treffer wird im Register 'reg' gespeichert. 
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5.4.2 Suche nach Textmustern 



PROC down (FILE VAR f . TEXT CONST mtistBr) 

Suche nach 'muster' in der Datei 'f in Richtung Dateiende. Wird 'muster' gefun- 
den. ist die Position das erste Zeichen von 'muster'. Andernfalls steht man hinter 
dem letzten Zeichen der Datei. 

Achtung: 'down' sucht vom ndchsten Zeichen rechts ab, so da6 wiederholtes 
Suchen keine Endiosschleife ergibt. 



PROC down (RLE VAR f. TEXT CONST muster. INT CONST number) 

Wie obiges 'down', es wird aber maximal nur 'number' -Zeilen weit nach 'muster' 
gesucht. 



PROC downety (RLE VAR TEXT CONST muster) 

Suche nach 'muster' in der Datei 'f in Richtung Dateiende. Wird 'muster' gefun- 
den. ist die Position das erste Zeichen von 'muster'. Andernfalls steht man auf 
dem letzten Zeichen der Datei. 

Achtung: 'downety' sucht (im Gegensatz zu 'down') vom aktuellen Zeichen an. 
Daher muB explizit vorw&rts positioniert werden. 



PROC downety (RLE VAR f . TEXT CONST muster. INT CONST number) 

Wie obiges 'downety'. aber maximal nur 'number' -Zeilen weit. 
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PROC up (HLE VAR f. TEXT CONST muster) 

Suche nach 'muster' in der Datei 'f in Richtung Dateianfang. Wird 'muster' 
gefunden. ist die Position das erste Zeichen von 'muster*. Andernfalls steht man 
auf dem ersten Zeichen der Datei. 

Achtung: 'up' sucht vom ndchsten Zeichen links ab, so daB wiederholtes Suchen 
keine Endlosschleife ergibt. 



PROC up (RLE VAR f. TEXT CONST muster, INT CONST number) 

Wie obiges 'up', aber mcucimal nur 'number' -Zeilen weit. 



PROC uppety (RLE VAR f, TEXT CONST muster) 

Suche nach 'muster' in der Datei 'f in Richtung Dateianfang. Wird 'muster' 
gefunden, ist die Position das erste Zeichen von 'muster'. Andernfalls steht man 
auf dem ersten Zeichen der Datei. 

Achtung: 'uppety' sucht (im Gegensatz zu 'up') vom aktuellen Zeichen. 



PROC uppety (FILE VAR f . TEXT CONST muster. INT CONST number) 

Wie obiges 'uppety', aber maximal nur 'number' - Zeilen weit. 
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5.4.3 Treffer registrieren 



BOOL OP LIKE (TEXT CONST text . mustBr) 

Liefert TRUE, falls der Text 'text' 'muster' entspricht. In 'muster' kann das 
Spezialzelchen '^' verwandt werden, das abkurzend fur die Konkatenation mit 
'any' steht. 

Daraus folgt, daB das Suchen cxler Ersetzen des Zeichens nur durch 
any (1,***") zu bewerkstelligen ist. 



I6,04,er ^H«ndl>uct> UUl^ 

1^*04 ,67 ♦'Hdr>dbuch tell2^ 



aber: 



#VDrderfi Koimner^tarklaiiimfijrn Ibschen # 



leriweqwoz awf taste Xe9en(^«'* , *'«j:ohive'*) } 
l«rn»eq[u«!nz «uf taste legmi^l^ , »"91''^*) ; 
l«rttaaauftn2 auf taste le^geM")^ , ^Mf^jjtw) . 



BOOL OP UNLIKE (TEXT CONST text , muster) 

WIrkt wie: '(NOT text LIKE muster)' 
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5.4.4 Treffer herausnehmen 



Mit Hilfe der 'Register' ist es mOglich identifizierte Texte zwischenzuspeichern und in 
weiteren Aktionen weiterzuverwenden. 



TEXT OP (TEXT CONST muslBr. INT CONST register) 

Der ais 'muster' erkannte Text wird einem 'Register' mit der Nummer 'register' 
zugeordnet. Es kdnnen 256 Register (1 bis 256) benutzt werden. 



TEXT PROG match (INT CONST nr) 

Liefert den Text der dem Register 'nr' zuletzt zugeordnet wurde. 




INT PROC malchpoe (INT CONST nummer) 

Liefert die Spaltennummer. auf der das dem Register 'nummer' zugeordnete Mu- 
ster in der Zeile beginnt. 
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5.4.5 Andem in Dateien 



PROC chwige (RLE VAR datei. IHT CONST von. bis . TEXT CONST neuertext) 

In der Datei wird in der alctuellen Zeile in den Ausschnitt zwischen 'von* und 'bis' 
der Text 'neuertext' eingesetzt. 

entspricht: 



flLt f ii^ :« seqt^ntidi file (Mdlfy, ndme} 
TEXT VAR zttile; 



Mite i^iM^iit'tf (fli«> 
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5.4.6 Editor - Prozeduren 




edit (TEXT CONST dalDQ 

Editieren der Datei 'datei'. Das Editorfenster ist maximal groB (von 1,1 bis 
max,max). Der Standard - Kommandointerpreter ist gultig. so daB Eingaben, die 
mit IMBM beginnen, interpretiert werden, wie in 3.4 'Vorbelegte Tasten' beschrie- 
ben. 

edit 

Wie oben, editiert wird die Datei mit dem zuletzt benutzten Namen. 
edit (THESAURUS CONST thes) 

Wie ot)en, editiert werden alle Dateien, deren Namen im Thesaurus 'thes' enthal- 
ten sind. 

edit (TEXT (X)NST datei, INT OOHST von x, von y, bis x, bis y) 

Editieren der Datei 'datei*. Das Editorfenster hat die linke obere Ecke bei 'von x, 
von y' und die rechte untere Ecke bei 'bis x, bis y'. 

edit (HLE VAR f) 

Editieren der als 'sequential file' assoziierten Textdatei 'f. 
edit (RLE VAR. INT CONST von x. von y, bis x. bis y) 

Editieren der als 'sequential file' assoziierten Textdatei in einem Fenster mit der 
linken, ot)eren Ecke 'von x. von y' und der rechten. unteren Ecke 'bis x, bis y'. 

edit (HLE VAR f, TEXT CONST res, 

PROC (TEXT CONST) kdo interpretBr) 

Editieren der als 'sequential file' assoziierten Textdatei 'f. In 'res' werden reser- 
vierte Zeichen ubergeben, die von der Prozedur 'kdo interpreter' als Kommandos 
interpretiert werden, wenn sie als ESC - Sequenz eingeget)en werden. 
Beispiel : WSQ « 
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editget (TEXT VAR ausgabe) 

Aufruf des Zeileneditor. An der aktuellen Cursorposition wird eine Zeile ausgegeben in 
der 'ausgabe' steht. Fur diese Zeile stehen alle Editierm6glichkeiten zur 
Verfugung. 'ausgabe' kann also beliebig uberschrieben, erg&nzt etc. werden. Die 
Eingabe wird durch Ciil abgesch lessen. Im Gegensatz zur Prozedur 'get' ist auch 
eine leere Eingabe mOglich. 

editOBt (TEXT VAR ausgabe. INT CONST zeile. INT CONST scroll. 

TEXT CONST sep. TEXT CONST res. TEXT VAR exit) 
Wie oben, die Zeilenldnge ist jedoch auf 'zeile' Zeichen begrenzt. Die Eingabe 
wird durch WSM Oder durch eine Cursorbewegung uber die Position 'zeile' hinaus 
abgeschlossen. 

Die Angabe 'scroll' setzt die Breite des Zeilenfensters test, wird diese Breite 
uberschritten. so wird 'ausgabe' gerollt. 

In 'sep' (Separator) kdnnen Zeichen festgesetzt werden, mit denen die Eingabe 
beendet wird (zusAtzlich zu OR I). 

In 'res' (reservierte Tasten) kOnnen Tasten festgelegt werden, die in Verbindung 
mit 111^5^ die Eingabe beenden. 

Wurde der Zeileneditor durch einen Separator verlassen, so steht in 'exit' dieses 
Zeichen. Falls der Zeileneditor durch eine reservierte Taste verlassen, so enthdit 
'exit' 'ESC' und die Taste. 

editget (TEXT VAR ausgabe, INT CONST zeile. INT CONST scroll) 
Bedeutung der Parameter siehe oben. 

editget (TEXT VAR ausgabe. TEXT CONST sep, TEXT CONST res, 

TEXT VAR exit) 
Bedeutung der Parameter siehe oben. 

editget (TEXT VAR ausgeibe, INT CONST zeile, TEXT VAR exit) 
Bedeutung der Parameter siehe oben. 
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5.4.7 Sortierung von Textdateien 



Fur die Sortierung von Textdateien gibt es zwei Sortierprogramme: 



- Sortierung nach ASCII 



sort 



- Sortierung nach 
deutschem Alphabet 



lexsort 



PROC sort (TEXT CONST dalBO 

Diese Prozedur sortiert die Date! 'datei' zeilenwetse gemAB der von der EUMEL 
Codetak»lle (siehe 5.2.4) vorgeget)enen Reihenfolge. Zur Sortierung warden die 
ZMIen vom ersten Zeichen der Zeiie beginnerxj, zeichenwetse varglichen und 
dementsprBCherxJ sortiert. 

PROC sort (TEXT CONST dotoi. INT CONST position) 

Sortierkriterien wie oben. jedoch wird bei Vergleich und Sortierung der Satz erst 
ab der Position 'position' beachtet. Sortiert wird der ganze Satz! 



PROC lax sort (TEXT CONST dateO 

Zeilenweise Sortierung nach lexikographischer Reihenfolge gemAB DIN 5007. Zu 
den Vergleichen vi^rden die Operatoren LEXEQUAL. LEXGRATER, 
LEXGRATEREQUAL benutzt (siehe 5.2.4). 

PROC tax sort (TEXT CONST dotoi. INT CONST position) 

Lexikalische Sortierung durch Vergleich ab Position 'position'. 
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5.4.8 Prozeduren auf Datenraumen 



Neben den Textdataien gibt es im EUMEL - System den Typ Datenraum, der Objekte 
jeglichen Typs aufnehmen kann und direkten Zugriff auf die Objekte gewfthrt (siehe 
2.9.2). 

Fur Ot)jekte von Type Datenraum (nk^ht fOr die in Datenrftumen enthaltenen Objekte!) 
existieren folgende Standardprozeduren: 



OP :» ( DATASPACE VAR d8l. DATASPACE CONST dB2) 

Der Datenraum 'dsV wird als Kopie von 'ds2' angelegt. Es harxJelt sk:h zunAchst 
urn eine k)oische Kopie, eine physische Kopie wird erst nach einem Schreibzugriff 
auf 'dsV Oder 'ds2' nMig. 




DATASPACE PROC new (TEXT CONST dsname) 
Liefert einen neuen Datenraum namens 'dsname'. 



(# eti^ibt ZMi Pftt^firSytte 'd&' und 'dftt«nray»M ^> 




DATASPACE PffKX; nispaoB 

Der 'nilspaoe' ist ein leerer Datenraum. der ausschlieBlich als Quelle zum Kopie- 
ran bei der Initialisierurig VerwerxJung finden darf. 
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DATASPACE PROC Old (TEXT CONST dsname) 

Liefert einen bereits existierenden Datenraum (Oder auch eine Datei) mit dem 
Namen 'dsname'. 

FEHLER : "dsname" gibt es nicht 

PROC type pATASPACE CONST ds. INT CONST typ) 

Der Datenraum 'ds' erhdit den frei w&hlbaren Schlussel 'typ'. Es muB eine positive 
Zahl gewdhit werden. Der Datenraum muB zum Zeitpunkt der Typzuweisung an 
ein BOUND Objekt gekoppelt (gewesen) sein. 

INT PROC type pATASPACE CONST ds) 

Liefert den Schlussel des Datenraums 'ds'. Falls 'ds' nie an ein BOUND Objekt 
gekoppelt war, liefert die Prozedur einen Wert < 0. sonst 0 (keine Zuweisung 
erfolgt) Oder die zugewiesene Typnummer. 



INT PROC cIntaspnoBS (TASK CONST task) 

Liefert die Anzahl der Datenr&ume der Task 'task'. 

INT PROC dataspeoes 

Anzahl der Datenrdume von 'myself. 




INT PROC ds pages pATASPACE CONST ds) 

Liefert die Anzahl der durch 'ds' belegten Seiten (je 512 Byte). 



INT PROC storage pATASPACE CONST ds) 

Liefert den von 'ds' belegten Speicherplatz in KB. 
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PROC copy (DATASPACE CONST ds, TEXT CONST datoi) 

Eine neue Datei mit dem Namen 'datei' wird angelegt. Der Inhalt der Datei ist eine 
Kopie des Inhalts des Datenraumes 'ds'. 




PROC forgot pATASPACE CONST ds) 

Der Datenraum 'ds' wird gelOscht^^ 



PROC fetch (DATASPACE CONST ziel. TEXT CONST datei. 
TASK CONST manager) 

Aus der Task 'manager' wird der Datenraum der Datei 'datei' in den eigenen 
Datenraum 'ziel' kopiert. 



PROC save (DATASPACE CONST quelle. TEXT CONST datei. 
TASK CONST manager) 

Der eigene Datenraum 'quelle' wird in die Datei 'datei' in der Task 'manager' 
kopiert. 



1) Durch diese Prozedur steht nicht unmitteit)ar mehr freier Speicherplatz zur 
Verfugung. Die physische RAumung von Speicherplatz erfolgt durch die 
'Mullabfuhr' bei einem Fixpunkt. 
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5.5 Eingabe/Ausgabe 



- Eingabesteuerzeichen 

- Ausgabesteuerzeichen 

- Positionierung 

- Eingabe 

- Ausgabe 

- Kontrotle 

- Zeitmessung 



HOP . ^ — T i . TAB . RUBIN , RUBOUT 
CR . MARK , ESC 

HOME , ^ T I , CL EOP , CL EOL 

CPOS . BELL , CR . ENDMARK . BEGINMARK 

cursor . get cursor , line , page 

get , getline . inchar , incharety 

cout , out , out subtext , put , putline , 
TIMESOUT , write 

online , pause , sysin , sysout 

clock , date . day , hour , pause , time 
time of day 
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5.5.1 E/A auf Bildschirm 



Steuerzeichen und Standardprozeduren zur Ein- Ausgabe am Bildschirm werden zur 
Steuerung des Dialogverhaltens von Prozeduren benutzt. 

5.5.1 .1 Eingabesteuerzeichen 

Eingabesteuerzeichen werden durch die Funktionstasten (s. 3.2) erzeugt. Die Wirkung 
der Tasten ist ebenfalls an dieser Stelle beschrieben. 

Durch die Tasten werden folgende Codes an Programme gegeben: 



Codierung 


Bezeichnung 


HOP 


1 


RECHTS 


2 


OBEN 


3 


LINKS 


8 


TAB 


9 


UNTEN 


10 


RUBIN 


11 


RUBOUT 


12 


CR 


13 


MARK 


16 


ESC 


27 
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5.5.1 .2 Ausgabesteuerzeichen 



Die Ausgabe dieser Zeichen bewirkt folgendes Verhalten der Bildschirmausgabe. 



Code 


Name 


Wirkung 


0 


NUL 


keine Wirkung 


1 


HOME 


Cursor in die linke obere Ecke setzen (Position 0,01) 


2 


RECHTS 


Cursor eine Stelle nach rechts setzen 


3 


OBEN 


Cursor eine Zeiie hOher setzen 


4 


CL EOP 




5 


CL EOL 


Rest der Zeile iOschen 


6 


CPOS 


Cursor setzen, ndchstes Ausgabezeichen bestimmt die 
y- Position, das darauf folgende die x- Position. 


7 


BELL 


akustisches Signal 


8 


LINKS 


Cursor eine Stelle nach links setzen 


10 


UNTEN 


Cursor eine Stelle nach unten setzen 


13 


CR 


Cursor an den Anfang der ndchsten Zeile setzen 


14 


ENDMARK 


Ende des markierten Bereichs 


15 


BEGINMARK 


Anfang des markierten Bereichs 



"text VA« «M«gob« i'^n'^'^iy 
out(ati«Qab«)| 

iiiii 



wmm 
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5.5.1 .3 Positionierung 

PROC cursor (INT CONST column, row) 

Positioniert den Cursor auf dem Bildschirm, wobei 'column' die Spalte und 'row' 
die Zeile angibt. Die zulAssigen Bereiche von 'column' und 'row' sind ger&teab- 
hdngig. 



PROC gat cursor (INT VAR x. y) 

Erfragung der aktuellen Cursor -Position. Die Koordinaten des Cursors werden in 
'x' und 'y' geliefert. Die aktuelle Cursor - Position ist nach Ausgabe von 'HOME' 
(Code s 1) Oder einer Positionierung des Cursors mit der Prozedur 'cursor' stets 
definiert. Die Prozedur 'get cursor' liefert jedoch undefinierte Werte, wenn uber 
den rechten Rand einer Zeile hinausgeschrieben wurde (die Wirkung einer solchen 
Operation hdngt von der Hardware eines Terminals ab). 



PROC line 

Es wird zum Anfang einer neuen Zeile positioniert. 

PROC line QHT CONST number) 

Es werden 'number' Zeilenwechsel vorgenommen. 



MM 

PROC page 

Es wird zum Anfang einer neuen Seite positioniert (hier: linke obere Ecke (Position 
1,11) des Biklschirms. wobei der Bikjschirm gelOscht wird). 
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5.5.1.4 Eingabe 
Grundlegende Prozeduren 

Die folgenden Prozeduren dienen ausschlieBlich der Eingabe vom Terminal. 




PROC gstchar (TEXT VAR zeichan) 

Liest genau ein Zeichen von der Tastatur und schreibt es in die Variable 'zeichen'. 



PROC inchar (TEXT VAR chaiactor) 

Wartet solange, bis ein Zeichen von der Tastatur eingegeben wird, und schreibt 
dieses Zeichen in die Vari€U)le 'character'. 



TEXT PROC incharety 

Versucht, ein Zeichen von der Tastatur zu iesen. Wurde ke'in Zeichen eingegeben, 
wird niltext geliefert. 

TEXT PROC incharety (INT CONST time limit) 

Versucht, ein Zeichen vom Biidschirm zu Iesen. Oabei wird maximal eine 'time 
limit' lange Zeit auf das Zeichen gewartet (gemessen in Zehntel - Sekunden). 
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Umleitbare Eingabeprozeduren 

Die folgenden Eingabeprozeduren lesen ebenfalls vom Terminal, die Eingabequelle 
kann jedoch durch die Prozedur 'sysin' umgestellt werden. Fails in 'sysin' eine Date! 
angegeben wird wird die Eingabe statt vom Terminal aus dieser Datei gelesen. 




PROC sysin (TEXT CONST file name) 

Eingabe - Routinen lesen nicht mehr vom Benutzer- Terminal, sondern aus der 
Datei 'file name'. 

TEXT PROC sysin 

Liefert den Namen der eingestellten 'sysin' - Datei. ** " bezeichnet das Benutzer - 
Terminal. 



m 

PROC gat (INT VAR number) 

Einlesen eines INT-Wertes vom Bildschirm. Der einzulesende INT -Wert kann 
bei der Eingabe vom Terminal editiert werden. 

PROC 0BC (REAL VAR value) 

Einlesen eines REAL-Wertes vom Bikjschirm. Der einzulesende REAL -Wert 
kann bei der Eingabe vom Terminal editiert werden. 
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PROC got (TEXT VAR word) 

Liest einen Text in die Variable 'word' mit maximal 255 Zeichen. Es werden 
solange Zeichen vom Terminal gelesen, bis ein Leerzeichen Oder C^i eingegeben 
wird. Dabei werden fuhrende Leerzeichen ubergeben. Der einzulesende Text 
kann bei der Eingabe editiert werden. Eine leere Eingabe ist nicht eriaubt. 

PROC get (TEXT VAR word. INT CONST tenge) 

Liest einen Text vom Bildschirm mit der Ldnge 'laenge' Oder bis eingegeben 
wird. Der einzulesende Wert kann bei der Eingabe editiert werden. 

PROC get (TEXT VAR word. TEXT CONST separator) 

Liest einen Text vom Bildschirm, bis ein Zeichen 'separator' angetroffen Oder liFli 
eingegeben wird. Der einzulesende Text kann bei der Eingat)e editiert werden. 




PROC get line (TEXT VAR line) 

Das System wartet auf eine Zeile vom Bildschirm (max. 255 Zeichen). ■.JfMil been- 
det die Eingabe. 
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5.5.1.5 Ausgabe 



Grundlegende Prozeduren 

Die folgenden Prozeduren dienen ausschlieBlich der Ausgabe auf das Terminal. 
PROC cout (INT CONST number) 

Schreibt 'number' an die aktuelle Cursor - Position auf den Bildschirm. Anschlie- 
Bend wird an diese Position wieder zuruck positioniert. 'number' muB > 0 sein. 
PaBt 'number' nicht mehr auf die Zeile, so ist die Wirkung von 'cout' nicht de- 
finiert. 'cout' gibt den Wert von 'number' nur aus, wenn genugend freie Kanal- 
Kapazit^t fur diese Ausgabe vorhanden ist. Das hat zur Folge, daB Programme 
nicht auf die Beendigung einer Ausgabe von 'number' warten mussen und ggf. 
Ausgaben uberschlagen werden. 

PROC out (TEXT CONST text) 

Ausgabe eines Textes auf dem Bildschirm. Im Unterschied zu 'put' wird kein 
Blank an den ausgegebenen Text angefugt. 
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PROC out subtext (TEXT CONST source, INT CONST from) 

Ausgabe eines Teiitextes von 'source' von der Position 'from' bis Textende. Es 
wird keine Aktion vorgenommen fur 

from > LENGTH source 

PROC out subtext (TEXT CONST source. INT CONST from, to) 

Ausgabe eines Teiitextes von 'source' von der Position 'from' bis zur Position 'to'. 
FOr 

to > LENGTH source 
wird out subtext (source, from) ausgefOhrt. 

PROC out text (TEXT CONST souroe, INT CONST from, to) 

Ausgatw eines Teiitextes von 'source' von der Position 'from' bis zur Position 'to'. 
Fur 

to > LENGTH source 
wird fOr die fehlenden Zerchen Blanks ausgegeben. 



Tmmm 

OP TIMESOUT (INT COHST times, TEXT COHST text) 

Ausgabe eines TEXTes 'text' 'times'mal. An die Ausgabe wird im Gegensatz zu 
'put' kein Leerzeichen angefugt. Es wird kein Text ausgegeben fur 

times < 1 
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Umleitbare Ausgabeprozeduren 

Die folgenden Ausgabeprozeduren schreiben ebenfails auf das Terminal, die Ausgabe 
kann jedoch durch die Prozedur 'sysout' umgeleitet werden. Falls in 'sysout' eine 
Datei angegeben wird wird die Ausgabe statt zum 
Terminal in die angegebene Datei geleitet. 



PROC sysout (TEXT CONST file name) 

Ausgabe - Routinen gehen nicht mehr zum Benutzer- Terminal, sondern in die 
Datei 'file name'. 

TEXT PROC sysout 

Liefert den Namen der eingestellten 'sysout' - Datei. bezeichnet das Benut- 
zer -Terminal. 



line 

Positionierung auf den Anfang einer neuen Ausgat)ezeile. 
line (INT CONST faktor) 

N&chste Ausgabezeile urn 'faktor' Zeilen weiter positionieren. 
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ill 

PROC put (INT CONST number) 

Ausgabe eines INT-Wertes auf dem Bildschirm. AnschlieBend wird ein Leer- 
zeichen ausgegeben. 

PROC put (REAL CONST reaO 

Aus9at)e eines REAL-Wertes auf dem Bildschirm. AnschlieBend wird ein Leer- 
zeichen ausgegeben. 

PROC put (TEXT CONST text) 

Ausgabe eines Textes auf dem Bildschirm. Nach der Ausgabe von 'text' wird ein 
Blank ausgegeben, urn nachfoigenden Ausgaben auf der gleichen Zeile voneinan- 
der zu trennen. Hardwareabhftngig sind die Aktionen, wenn eine Ausgabe Qt)er 
eine Zeilengrenze (hier: Bildschirmzeile) vorgenommen wird. Meist wird die Ausga- 
be auf der nAchsten Zeile fortgesetzt. 




PROC putline (TEXT CONST text) 

Ausgabe von 'text' auf dem Bildschirm. Nach der Ausgabe wird auf den Anfang 
der nAchsten Zeile positioniert. Gibt man TEXTe nur mit 'putline' aus. so ist 
gesichert, daB jede Ausgabe auf einer neuen Zeile beginnt. Hardwareabhdngig 
sind die Aktionen, wenn eine Ausgabe uber eine Zeilengrenze (hier: Bikjschirm- 
zeile) vorgenommen wird. Meist wird die Ausgabe auf der nAchsten Zeile fort- 
gesetzt. 



mli0 

PROC write (TEXT CONST text) 

Gibt 'text' ohne Trennblank aus ('put' mit Trennblank). 
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5.5.1.6 Kontrolle 



BOOL PROC online 

Liefert TRUE, wenn die Task mit einem Terminal gekoppelt ist. 



PROC pause (INT CONST time limit) 

Wartet 'time limit' in Zehntel - Sekunden. Bei negativen Werten ist die Wirkung 
nicht definiert. Die Wartezeit wird nicht nur durch das Erreichen der Grenze at> 
gebrcx^hen, sondern auch durch die Eingabe eines beiiebigen Zeichens. 

PROC pause 

Wartet bis zur Eingabe eines beiiebigen Zeichens. 
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5.5.2 Zeitmessung 




REAL PROC dock (INT CONST index) 

Datum und Uhrzeit werden vom EUMEL - System fur alle Tasks gefuhrt. Neben 
einer Uhr ('Realzeituhr'), die das Datum und die alctuelle Uhrzeit enth&lt, wird eine 
Uhr fur die von der Task verbrauchte CPU-Zeit gefuhrt ('CPU - Zeituhr'). Beide 
Zelten werden vom System als REALs realisiert. Die Prozedur 'clocic' liefert die 
alctuellen Werte dieser Uhren. Bei 'index s 0' wird die aldcumulierte CPU-Zeit 
der Tasl(, bei 'index = 1' der Wert der Realzeituhr geliefert. 

Mit den REAL-Werten der Uhren kann ohne weiteres gerechnet werden, jedoch 
sind nur Werte > 0 definiert. Die REAL -Werte der Realzeituhr beginnen beim 
1.1.19CX) um 0 Uhr. Es sind nur Werte fur dieses Jahrhundert zugelassen. Werte 
der Realzeituhr in lesbarer Form kann man durch die Konvertierungsprozeduren 
'date' (vergl. 5- 81 ) (fur den aktuellen Tag) und 'time of day' (Uhrzeit, vergl. 
5-82)erhalten. 

Um die twnOtigte CPU-Zeit eines Programms zu berechnen, mu6 man die 
CPU-Zeituhr zweimal abfragen. Um solche Zeiten in lesbarer Form zu erhalten. 
kann man die Konvertierungsprozedur 'time' (vergl. 5-82) verwenden. Beispiel: 



tierechnungen; 
«£AL COWST eiid6 :t ^Idck (0)^ 

put C'benoBtigte CPU-Zeit in Sek:'')} 
put <time ietvd^ - Unfpr^^)) 
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TEXT PROC date (REAL CONST tiffie) 

Konvertierungsprozedur fOr das Datum, welches sich aus dem Aufruf der Prozedur 
'clock (1)' ergibt. Das Datum wird in der Form 'tt.mm.jj' geliefert. Belspiel: 



put (date (clock <1») z.B.: 24.12.87 n 



REAL PROC data (TEXT CONST datum) 

Konvertierungsprozedur fur ein Datum in der Form 'tt.mm.jj*. Liefert einen 
REAL -Wert, wie ihn die Prozedur 'clock (1)' liefern wurde. Beispiel: 



put (data <'^24.12*87*')) {♦ ^.27353?«ia ♦> 



TEXT PROC dale 

Liefert das Tagesdatum. Wirkt wie 'date (clock ist jedoch erheblich schneller. 



REAL CONST day 

Liefert die Anzahl der Sekunden eines Tages (86 400.0). 



REAL CONST hour 

Liefert die Anzahl der Sekunden einer Stunde (3600.0). 
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PROC pause (INT CONST time limit) 

Wartet 'time limit' in Zehntel - Sekunden. Bei negativen Werten ist die Wirkung 
nicht definiert. Die Wartezeit wird nicht nur durch das Erreichen der Qrenze ab- 
gebrochen, sondern auch durch die EingalDe eines beliebigen Zeichens. 



TEXT PROC time (REAL CONST time) 

Konvertierungsprozedur fQr die Zeiten der CPU-Zeituhr. Liefert die Zeiten in der 
Form 'hh:mm:ss.s'. Vergl. dazu 'clock'. 

TEXT PROC time (REAL CONST value. INT CONST laenge) 

Konvertiert die Zeit in externe Darstellung. Fur die 'laenge' - Werte ergibt sich: 

laenge = 10 (♦ hh:mm:ss.s ♦) 

laenge = 12 (♦ hhhh:mm:ss.s ♦) 



REAL PROC time (TEXT CONST time) 

Konvertierungsprozedur fOr Texte der CPU - Zeltuhr in REAL - Werte. 



TEXT PROC time of day (REAL CONST time) 

Konvertierungsprozedur fQr REALs, wie sie die Realzeituhr 

liefert. Es wird die Tageszeit in der Form 'hh:mm' geliefert. Beispiel: 



put (time of day <clock (1))) <* z,B,: 17:25 #) 



TEXT PROC time of day 

Liefert die aktuelle Tageszeit. Entspricht 



time of day (clock (1)) 
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5.6 Scanner 



Der Scanner kann benutzt werden, urn festzustellen, welche Art von Symbolen in 
einem TEXT enthalten sind. Die Representation der Symbole mussen dabei der 
ELAN - Syntax entsprechen. Folgende Symbole kann der Scanner erkennen: 



- "tags", d.h. Namen, 

- "bolds", d.h. Schlusselworte, 

- "number", d.h. INT Oder REAL Zahlen. 

- Operatoren, 

- "delimiter", d.h. Begrenzer wie z.B. 

- und das Ende des Scan-Textes. 



Der Scanner Qt)erliest Kommentare und Leerzeichen zwischen den Symbolen. Der 
(erste) zu verart)eitende Text muB mit der Prozedur 

scan 

in den Scanner "hineingesteckt" werden. Mit der Prozedur 
next symbol 

wird das jeweils ndchste Symbol des TEXTes geholt. Am Ende wird "end of scan" 
und als Symbol 'niltext' geliefert. Falls innerhalb eines TEXT - Denoters Oder eines 
Kommentars "end of scan" auftritt, wird "within text" bzw. "within comment" gemel- 
det. Der Scan-ProzeB kann dann mit dem n&chsten zu scannenden TEXT (der 
ndchsten Zeile) fortgesetzt werden. Dafur wird nicht die Prozedur 'scan', sondern 

continue scan 

verwandt. Sie setzt im letzten Scan-Zustand (z.B. Kommentar Oder TEXT-Deno- 
ter) wieder auf, so daB auch Folgen von TEXTen (Zeilen) wie z.B. Dateien leicht 
gescannt werden kOnnen. 
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Mit den Prozeduren 

scan (* meldet eine Datei zum scannen an ♦) 

next symbol (♦ holt die Symbole ♦) 

kann man auch eine Datei nach ELAN - Symbolen untersuchen. 



flLf VAR f :: ... 

^can (f); be]ginnt da^ Scanning in 

iier nachstBO Zeile ^) 

TEXT VAfi Aymfadl; 
INT VAR type; 

next symbol (f, symbol , type); 
ver^tb^itd Symbol 
UNTIL type >r 7 £N0 R£P, 
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Scanner - Kommandos 



PROC oontinue scan (TEXT CONST scan text) 

Das Scanning soil mit 'scan text' fortgesetzt warden. Fails der Scan-Vorgang 
t)eim vorigen 'scan text' Innerhalb eines TEXT - Denoters Oder eines Kommentars 
abgetKochen wurde, wird er jetzt entsprechend mit dem ndchsten 'next symbol' 
fortgesetzt. Der erste Teil-Scan einer Foige muB aber stets mit 'scan' eingeleltet 
werdenl 

PROC next symbol (TEXT VAR symbol, INT VAR type) 

Holt das n&chste Symbol. In "symbol* steht der TEXT des Symbols, so z.B. die 
Ziffern eines INT - Denoters. Bei TEXT-Denotern werden die fUhrenden und 
abschlieBenden AnfOhrungsstriche abgeschnitten. Leerzeichen Oder Kommentare 
spielen in 'tags' Oder 'numbers' keine Rolle. Zwischen Symbolen spieien Leer- 
zeichen Oder Kommentare keine Rolle. In 'type" steht eine Kennzeichung fur den 
Typ des Symbols: 



Wird Scan-Ende innerhalb eines Kommentars gefunden, so wird 'niltext' und 
'within comment' geliefert. Wird Scan-Ende innerhalb eines TEXT - Denoters 
gefunden, so wird der schon analysierte Teil des Denoters und 'within text' gelie- 
fert. 



tag 
bokj 
number 
text 

operator 
delimiter 
end of file 
within comment 
within text 



- 1 . 

= 2 , 
« 3. 

- 4 , 
« 5 , 

- 6. 
« 7 . 

- 8 , 
= 9 . 
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PROC next symbol (TEXT VAR symboQ 

s.o. Es wird aber nur der Text des Symbols (ohne Typ) geliefert. 

PROC next symbol (FILE VAR f . TEXT CONST symbol) 

Arbeitet wie obige Prozeduren, jedoch auf einen FILE. 

PROC next symbol (RLE VAR f, TEXT CONST symbol. INT VAR type) 

Arbeitet wie obige Prozeduren, jedoch auf einen FILE. 



PROC scan (TEXT CONST scan text) 

Meldet einen 'scan text' fur den Scanner zur Verarbeitung an. Die Prozedur 'scan' 
muB vor dem ersten Aufruf von 'next symbol' gegeben werden. Im Gegensatz zu 
'continue scan' normiert 'scan' den inneren Zustand des Scanners, d.h. vorherige 
Scan - Vorgftnge hakwn keinen Einf luB mehr auf das Scanning. 

PROC scan (HLE VAR f) 

Wie obige Prozedur, jedoch auf einen FILE. Die zu scannende Zeile ist die n&ch- 
ste Zeile im FILE 'f ('scan' macht zuerst ein 'getline'). 
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TEIL 6: Das Archiv 'std.zusatz' 



Das Archiv 'std.zusatz' enthAlt Pakete, die nur bei Bedarf insertiert werden sotlen. 
Eine Einbindung in das EUMEL Grundsystem wurde dieses ungebOhrlich unfangreich 
machen. 

Das Archiv enthAlt zusAtzliche Software fur: 

- mathematische Operationen : complex , longint , vector , matrix 

- Aruilyse reporter , referencer 

- Taschenrechnerfunktion 

zur Editor -Erweiterung TeCal , TeCal Auskunft 



GMD 
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6.1. Erweiterungen um 

Mathematische Operationen 

6.1.1 COMPLEX 

Das Packet COMPLEX erweitert das System um den Datentyp COMPLEX (komplexe 
Zahlen) und Operationen auf komplexen Zahlen. Folgende Operationen stehen fur 
COMPLEX zur Verfugung: 

- Einfache Operatoren 

- Eingabe/Ausgabe 

- Denotierungsprozedur 

- Komporienten 
-bes. Funktionen 



:«,»,<>, + ,-,* 
get , put 

complex , complex i , complex one , com- 
plex zero 

real part . imag part 

ABS . CONJ , phi , dphi . sqrt 
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COMPLEX Operationen 

Komplexe Zahl, bestehend aud Realteil 're' und Imagindrteil 'im'. 



OP :« (COMPLEX VAR a. COMPLEX CONST b) 
Zuweisung. 



BOOL OP » (COMPLEX CONST a. b) 

Vergleich von 'a' und 'b' auf Gleichheit. 



iiiill 

BOOL OP <> (COMPLEX CONST a. b) 

Vergleich von 'a' und 'b' auf Ungleichheit. 



COMPLEX OP -I- (COMPLEX CONST a. b) 

Summe von 'a' und 'b'. 



COMPLEX OP - (COMPLEX CONST a, b) 

Differenz von 'a' und 'b'. 



GMD 
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COMPLEX OP * (COMPLEX CONST a, b) 

Multiplikation von 'a' mit 'b'. 



COMPLEX OP / (COMPLEX CONST a. b) 

Division von 'a' mit 'b'. 
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PROC got (COMPLEX VAR a) 

Einlesen eines komplexen Wertes vom Bildschiim in der Form zweier REAL-De- 
noter. Die Eingabe kann editiert warden. 



illl 

PROC put (COMPLEX CONST a) 

Ausgabe eines komplexen Wertes auf dem Bildschirm in Form zweier REAL- 
Werte. Hinter jedem REAL -Wert wird ein Leerzeichen angefQgt. 



COMPLEX PROC complex (REAL CONST re. im) 

Denotierungsprozedur. Angabe in kartesischen Koordinaten. 



COMPLEX PROC complex i 

Denotierungsprozedur fur den komplexen Wert '0.0 •¥ i 1.0'. 



COMPLEX PROC complex one 

Denotierungsprozedur fQr den komplexen Wert '1.0 i 0.0'. 



COMPLEX PROC complex zero 

Denotierungsprozedur fOr den komplexen Wert '0.0 + i 0.0'. 



GMD 
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REAL PROC imao part (COMPLEX CONST number) 
Liefert den Imaginflrteil das komplexen Wertas 'number*. 



REAL PROC real part (COMPLEX CONST number) 

Liefert den Real-Teii des komplexen Wertes 'number'. 



REAL OP ABS (COMPLEX CONST x) 

REAL-Betrag von 'x'. 



COMPLEX OP CONJ (COMPLEX CONST number) 

Liefert den konjugiert komplexen Wert von 'number'. 



REAL PROC dphi (COMPLEX CONST x) 

Winkel von 'x' (Polardarstellung). 



REAL PROC phi (COMPLEX CONST x) 

Winkel von 'x' (Polardarstellung) in Radiant. 



COMPLEX PROC sqrt (COMPLEX CONST x) 

Wurzelfunktion fur komplexe Werte. 
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6.1.2 LONGINT 



LONGINT ist ein Datentyp. fur den (fast) alle Prozeduren und Operatoren des Daten- 
typs INT implementiert wurden. LONGINT unterscheidet sich von INT dadurch, daB 
erheblich grOBere Werte darstellbar sind. 

Fur den Datentyp LONGINT stehen folgende Operationen zur VerfQgung: 

- Operatoren :«,«,<>,<,<=.,>,>», + ,- ,*, 

ABS , DECR . DIV . INCR , MOD . SIGN 

- Eingabe/Ausgat)e get , put 



- Math. Prozeduren abs , int , longint . max . max logint , min , 

random , sign , text , zero 



GMD 
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LONGINT - Operationen 

Datentyp 

:m 

OP :- (LONGINT VAR links. LONGINT CONST rechts) : 
Zuweisungsoperator 

BOOL OP - (LONGINT CONST links, rectits) 
Vergleichen zweier LONGINTs auf Gleichheit. 

<>:: 

BOOL OP <> (LONGINT CONST links, radits) 
Vergleichen zweier LONGINTs auf Ungleichheit. 

BOOL OP < (LONGINT CONST links, rechts) 
Vergleichen zweier LONGINTs auf Kleiner. 

BOOL OP < « (LONGINT CONST links, rechts) 

Vergleichen zweier LONGINTs auf Kleiner gleich. 
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BOOL OP > (LONGINT CONST links, rectus) 
Vergleichen zweier LONGINTs auf Qr6Ber. 



BOOL OP > » (LONGINT CONST links, rechts) 
Vergleichen zweier LONGINTs auf grOBer gleich. 



LONGINT OP -1^ (LONGINT CONST argument) 
Monadischer Operator. Ohne Wirkung. 

LONGINT OP + (LONGINT CONST links, rechts) 
Ackjition zweier LONGINTs. 



LONGINT OP - (LONGINT CONST argument) 
Vorzeichenumkehrung. 

LONGINT OP - (LONGINT CONST links. recTits) 
Subtraktion zweier LONGINTs. 



LONGINT OP * (LONGINT CONST links. recTits) 
Multiplikation von zwei LONGINTs. 



GMD 
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LONGINT OP (LONGINT CONST argument, exponent) 

Exponentiation zweier LONGINTs mit positivem Exponenten. 

FEHLER : 

LONGINT OP : negative exponent 
Der 'exponent' muB > » 0 sein. 
0 0 is not defined 

'argument' und 'exponent' durfen nicht gleich 0 sein. 



LONGINT OP (LONGINT CONST argument, INT CONST exponent) 

Exponentiation eines LONGINT mit positiven INT Exponenten. 

FEHLER : 

LONGINT OP : negative exponent 
Der 'exponent' muB > s 0 sein. 
0 ** 0 is not defined 

'argument' und 'exponent' durfen nicht gleich 0 sein. 

LONGINT OP ABS (LONGINT CONST argument) 

At>solutbetrag eines LONGINT. 



OP DECR (LONGINT VAR resultat. LONGINT CONST ab) 
resultat : > resultat - ab 
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LONGINT OP DIV (LONGINT CONST links, recfits) 

Division zweier LONGINTs. 

FEHLER : 

Division durch 0 
'rechts' muB <> 0 sein. 



LONGINT OP INCR (LONGINT VAR resuNat. LONGINT CONST dazu) 

resultat : « resultat + dazu 



LONGINT OP MOD (LONGINT CONST links, rechts) 

Modulo -Funktion fOr LONGINTs. Der Rest einer LONGINT -Division wird ermit- 
telt. 

FEHLER : 

text (links) + 'MOD 0' 
*rechts' muB ungleich null sein. 



simt 

INT OP SIGN (LONGINT CONST tongint) 

Feststellen des Vorzeichens von 'longint'. Liefert: 

0 wenn 'longint* = 0, 

1 wenn 'longint' > 0, 
-1 wenn 'longint' < 0. 



QMD 
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111 

PROC get (LONGINT VAR zahl) 

Eingabe eines LONGINTs vom Terminal. 

PROC get (RLE VAR file, LONGINT VAR zahl) 

Einlesen von 'zahl' aus der sequentiellen Datei 'file'. Die Datei muB mit 'input' 
assoziiert sein (vergl. 'sequential file'). 

FEHLER : 

Datei zu 

Leseversuch nach Daateiende 
Leseversuch auf output -FILE 




PROC put (LONGINT CONST longint) 

Ausgat)e eines LONGINTs auf dem Bildschirm. AnschlieBend wird ein Leerzeichen 
ausgegeben. HardwareabhAngig sind die Aktionen. wenn eine Ausgabe Qber die 
Bildschirmzeilengrenze vorgenommen wird. Meist wird jedoch die Ausgabe auf der 
ndchsten Zeile fortgesetzt. 

PROC put (RLE VAR file. LONGINT CONST zahl) 

Ausgat)e von 'zahl' in die sequentielle Datei 'file*, 'file' muB mit 'output' assoziiert 
sein. 

FEHLER : 

Datei zu 

Schreibversuch auf input -FILE 
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LONGINT PROG ab6 (LONGINT CONST argument) 
Absolutbetrag eines LONGINT. 



INT PROG int (LONGINT CONST longinQ 
Konvertierung von LONGINT nach INT. 



FEHLER : 

integer overflow 

'longint* ist grOBer als 'maxint*. 



LONGINT PROC ICMigim QHT CONST int) 
Konvertierung von 'int' nach LONGINT. 

LONGINT PROG longint (TEXT CONST text) 
Konvertierung von 'text' nach LONGINT. 



LONGINT PROC max (LONGINT CONST links, rechts) 
Liefert das Maximum zweier LONGINTs. 



LONGINT PROC max longint 
Liefert grOBten LONGINT Wert. 



GMD 
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LONGINT PROC min (LONGINT CONST links, rechts) 

Liefert das Minimum zweier LONGINTs. 



LONGINT PROC random (LONGINT CONST lower bound, upper bound) 

Pseudo-Zufaliszahlen- Generator im Interval! 'lower bound' und 'upper bound' 
einschlieBlich. Es handelt sich hier um den 'LONGINT Random Generator'. 



INT PROC sign (LONGINT CONST longint) 

Feststellen des Vorzeichens von 'longint'. Liefert: 

0 wenn 'longint* = 0, 

1 wenn 'longint' > 0, 
-1 wenn 'longint' < 0. 
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TEXT PROC text (LONGINT CONST lonoint) 

Konvertierung von 'longint' nach TEXT. 

TEXT PROC text (LONGINT CONST longint. INT CONST taenge) 

Konvertierung von 'longint' nach TEXT. Die Anzahl der Zeichen soil 'laenge' 
t)etragen. FQr 

LENGTH (text (longint)) < laenge 

werden die Zeichen rechtst>Ondig in einen Text mit der LAnge 'laenge' eingetra- 
gen. 1st der daraus entstehende TEXT Kleiner als 'laenge', werden die an 'laenge' 
fehlenden Zeichen im TEXT mit Leerzeichen aufgeftillt. FOr 

LENGTH (text (longint)) > laenge 

wird ein Text mit der LAnge 'laenge' geiiefert, der mit ""-Zeichen gefullt ist. 



LONGINT PROC zero 
Liefert LONGINT Wert Null. 



GMD 
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6.1.3 VECTOR 



Der Datentyp VECTOR eriaubt Operationen auf Vektoren aus Elementen vom Typ 
REAL. Im Gegensatz zur Struktur 'ROW m REAL' muB die Anzahl der Elemente nicht 
zur Obersetzungszeit deklariert warden, sondern kann zur Laufzeit festgelegt werden. 
Somit kann eine zur Obersetzungszeit unbekannte Anzahl von REALs bearbeitet 
werden, wobei nur soviet Speicherplatz wie nOtig verwendet wird. Die maximale GrOBe 
eines VECTOR betrAgt 4000 Elemente. 

Der in den Operationen 'is', 'idn' und 'vector' benutzte Datentyp INITVECTOR wird 
nur intern gehalten. Er dient der Speicherplatzersparnis bei der Initialisierung. 



- Operatoren :=, = ,<>, + ,- ,*,/ 

LENGTH , SUB 

- Eingabe/Ausgat)e get , put 

- Besondere Vector - length , nilvector , norm , vector , replace 
Operationen 



6-16 



GMD 



TEIL 6 : Das Archiv 'std.zusatz* 



OP :« (VECTOR VAR ziel, VECTOR CONST quelle) 

Zuweisung. Nach der Zuweisung gilt auch 

length (quelle) = length (ziel) 

d.h. der linke Operand besitzt nach der Zuweisung genauso viele Elemente wie 
'quelle', unabhAngig davon. ob 'ziel' vor der Zuweisung mehr Oder weniger Ele- 
mente als 'quelle' besaB. Beispiet: 

VECTOR VAR y :: vector (10, 1.0), 
z :: vector (15, 2.0); 

y := z; (♦ length (y) liefert nun 15 ! ♦) 

OP (VECTOR VAR ziel, INITVECTOR CONST quelle) 

Dient zur Initialisierung eines VECTORS. Beispiel: 

VECTOR VAR X :: vector (17); 

'vector' erzeugt ein Objekt vom Datentyp INITVECTOR. Dieses Objekt braucht 
nicht soviel Speicherplatz wie ein VECTOR - Objekt. Dadurch wird vermieden, daB 
nach erfolgter Zuweisung nicht ein durch 'vector' erzeugtes Objekt auf dem Heap 
unnOtig Speicherplatz verbraucht. 



BOOL OP » (VECTOR CONST a. b) 

Vergleich zweier Vektoren. Der Operator liefert FALSE, wenn die Anzahl der 
Elemente von 'a' und 'b' ungleich ist Oder wenn zwei Elemente mit gleichem 
Index ungleich sind. Beispiel: 

VECTOR VAR X :: vector (10, 1,0), 

y :: vector (15, 2.0), 

z :: vector (10, 1.0); 
... X = y ... (♦ FALSE ♦) 
... X r z ... (* TRUE *) 



QMD 
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BOOL OP <> (VECTOR CONST a. b) 

Vergleich zweier Vektoren auf Ungleichheit (NOT (a » b)). 



VECTOR OP + (VECTOR CONST a) 

Monadisches ' + ' fOr VECTOR. Keine Auswirkung. 

VECTOR OP ••- (VECTOR CONST a. b) 

Elementweise Addition der Vektoren 'a' und 'b'. Beispiel: 

VECTOR VAR x, (♦ 'x* hat undefinierte Lange ♦) 
a :: vector (10, 1.0), 
b : : vector (10, 2.0) ; 

X :=a+b; (♦'x' hat nun 10 Elemente mit Werten'3.0* 
*) 

FEHLER : 

VECTOR OP + : LENGTH a <> LENGTH b 

'a' und 'b' haben nicht die gleiche Anzahl von Elementen. 



VECTOR OP - (VECTOR CONST a) 

Monadisches 

VECTOR OP - (VECTOR CONST a. b) 

Elementweise Subtraktion der Vektoren 'a' und 'b'. 

FEHLER : 

VECTOR OP - : LENGTH a <> LENGTH b 

'a' und 'b' haben nicht die gleiche Anzahl von Elementen. 
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REAL OP * (VECTOR CONST a, b) 

Skalcuprodukt zweier Vektoren. Liefert die Summe der elementweisen Multipiika- 
tion der Vektoren 'a' und 'b'. Beachte eventuelle Rundungsfehlerl Beispiel: 

REAL VAR a; 

VECTOR VAR b :: vector (10, 2.0), 
c :: vector (10, 2.0); 

a := b ♦ c; (♦ 40.0 ♦) 

FEHLER : 

REAL OP * : LENGTH a <> LENGTH b 

'a' und 'b' haben nicht die gleiche Anzahl von Elementen. 

VECTOR OP • (VECTOR CONST a. REAL CONST s) 

Multiplikation des Vektors 'a' mit dem Skaiar 's'. 

VECTOR OP * (REAL CONST s, VECTOR CONST a) 
Multiplikation des Skalars 's' mit dem Vektor 'a'. 



VECTOR OP / (VECTOR CONST a, REAL CONST s) 

Division des Vektors 'a' durch den Skaiar 's'. Beispiel: 

VECTOR VAR a, (♦ 'a' hat undefinierte Laenge ♦) 
b :: vector (10, 4.0); 

a := b / 2.0; 

(♦ 'a' hat nun 10 Elemente mit Werten '2.0' ♦) 



INT OP LENGTH (VECTOR CONST a) 

Liefert die Anzahl der Elenrtente von 'a'. 



GMD 
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REAL OP SUB (VECTOR CONST v, INT CONST i) 

Liefert das 'i'-te Element von V. 

FEHLER : 

OP SUB : subscript overflow 

Der Index 'I' iiegt auBerhalb des Vektors (i > LENGTH v). 

OP SUB : subscript underflow 

Der Index 'I' Iiegt auBerhalb des Vektors (1 < 1). 
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PROC gst (VECTOR VAR a. INT CONST I) 

Einlesen der Elemente von 'a' vom Terminal, wobei T die Anzahl der Eieniente 
angibt. 

FEHLER : 

PROC get : size < « 0 

Die angeforderte Elementanzahl 'I' muB > 0 sein. 




PROC put (VECTOR CONST v) 

Ausgat)e der Werte der Elemente von 'v' auf dem Terminal. 



GMD 



6-21 



EUMEL - Benutzerhandbuch 



INT PROC tonglh (VECTOR CONST a) 

Liefert die Anzahi der Elemente von 'a'. Beispiel: 

VECTOR VAR a :: vector (10, 1.0), 
b :: vector (15, 2.0); 

... length (a) ... (♦ 10 ♦) 
. . . length (b) ... (♦ 15 ♦) 



INrrVECTOR PROC nihMtor 

Erzeugen eines Vektors mit einem Element mit dem Wert '0.0*. 



REAL PROC norm (VECTOR CONST v) 

Euklidische Nomi (Wurzel aus der Summe der Quadrate der Elemente). 



PROC leplaoe (VECTOR VAR v. INT CONST i, REAL CONST r) 

Zuweisung des i-ten Elementes von 'v' mit dem Wert von *r'. Beispiel: 

VECTOR VAR V :: 
replace (v, 13, 3.14); 

(* Das 13. Element von 'v' bekommt den Wert '3.14' «) 

FEHLER : 

PROC replace : subscript overflow 

Der Index 'i' liegt auBerhalb des Vektors (i > LENGTH v). 

PROC replace : subscript underflow 

Der Index *i' liegt auBerhalb des Vektors (i < 1). 
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INrrVECTOR PROC vector (INT CONST I) 

Erzeugen eines Vektors mit 'i' Eiementen. Bin INITVECTOR-Objekt benOtigt nicht 
soviel Speicherplatz wie ein VECTOR - Objekt. Die Elemente werden mit dem 
Wert '0.0' Inltialislert. 

FEHLER : 

PROC vector : size < « 0 

Die angeforderte Elementanzahl T muB > 0 sein. 

INfTVECTOR PROC vedor (INT CONST I. REAL CONST value) 
Erzeugen eines Vektors mit 'I' Eiementen. Ein INITVECTOR- Objekt benOtigt nicht 
soviel Speicherplatz wie ein VECTOR - Objekt. Die Elemente werden mit dem 
Wert 'value' initialisiert. Beispiel: 

VECTOR VAR V := vector (17, 3.14159); 

(♦ 'v' hat 17 Elemente mit den Wert '3.14159* ♦) 

FEHLER : 

PROC vector : size < « 0 

Die angeforderte Elementanzahl '1' muB > 0 sein. 



GMD 
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6.1.4 MATRIX 



Der Datentyp MATRIX eriaubt Operationen auf m x n Matrizen. Im Gegensatz zur 
Struktur 'ROW m ROW n REAL' muB die Anzahl der Elemente nicht zur Uberset- 
zungszeit deklariert werden, sondern kcmn zur Laufzeit festgelegt werden. Somit kann 
eine zur Ubersetzungszeit unbekannte Anzahl von REALs bearbeitet werden, wobei 
nur soviel Speicherplatz wie nOtig verwendet wird. Die maximale GrdBe einer MATRIX 
betrftgt 4000 Elemente. 

Der in den Operationen ': = ', 'kin' und 'matrix' benutzte Datentyp INITMATRIX wird 
nur intern gehalten. Er dient der Speicherplatzersparnis bei der Initialisierung. 



- Operatoren :«,«,<>, + ,- ,* 

COLUMNS , DET , INV , ROWS , TRANSP , 

- Eingabe/Ausgabe get . put 

- Besondere Matrix- column . idn , matrix . row , sub 
Operationen transp . 

replace column , replace element , 
replace row 
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OP :« (MATRIX VAR I, MATRIX CONST r) 

Zuweisung von 'r' auf *\\ Die MATRIX '1' bekommt u.U. eine neue Anzahi von 
Elementen. Beispiel: 



MATRIX VAR a :: matrix (3, 4, 0.0), 
b :: matrix (5, 5, 3.0); 

a := b; (* *a' hat jetzt 5x5 Elemente *) 

OP (MATRIX VAR I. INITMATRIX CONST r) 

Dient zur Initialisierung einer Matrix. Beispiel: 

MATRIX VAR x :: matrix (17, 4); 

'matrix' erzeugt ein Ot>jekt vom Datentyp INITMATRIX. Dieses Objekt braucht 
nicht soviel Spek^herplatz wie ein MATRIX - Objekt. Dadurch wird vermieden, da6 
nach erfolgter Zuweisung nicht ein durch 'niatrix' erzeugtes Objekt auf dem Heap 
unnOtig Speicherplatz verbraucht. 



BOOL OP - (MATRIX CONST I, r) 

Vergleich zweier Matrizen. Der Operator ' = ' liefert FALSE, wenn die Anzahi 
Spalten Oder Reihen der Matrizen 'I' und 'r' ungleich ist und wenn mindestens ein 
Element mit gleichen Indizes der zwei Matrizen ungleiche Werte haben. Beispiel: 

MATRIX VAR a :: matrix (3, 3), 

b :: matrix (3, 3, 1.0), 

c :: matrix (4, 4); 
... a = b ... 
(♦ FALSE wegen ungleicher Werte ♦) 

(♦ FALSE wegen ungleicher Groesse ♦) 

... b = c ... 
(* FALSE wegen ungleicher Groesse *) 



GMD 
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<> 



BOOL OP <> (MATRIX CONST I. r) 

Vergleich der Matrizen T und 'r' auf Ungleichheit. 



MATRIX OP + (MATRIX CONST m) 

Monadisches ' + Keine Auswirkungen. 

MATRIX OP -I- (MATRIX CONST I, r) 

Addition zwaier Matrizen. Die Anzahl der Reihen und der Spalten muB gleich sein. 
Beispiel: 

MATRIX VAR a :: matrix (3, 43, 1.0), 

b :: matrix (3, 43, 2.0), 
summe ; 

summe := a b; 
(♦ Alle Elemente haben den Wert '3.0' ♦) 

FEHLER: 

MATRIX OP + : COLUMNS I < > COLUMNS r 

Die Anzahl der Spalten von T und 'r' sind nicht gleich. 

MATRIX OP + : ROWS I < > ROWS r 

Die Anzahl der Zeilen von '1' und 'r' sind nicht gleich. 



MATRIX OP - (MATRIX CONST m) 

Monadisches Minus. Beispiel: 

MATRIX VAR a :: matrix (3, 4, 10.0) 

a := - a; (♦ Alle Elemente haben den Wert '- 10.0' *) 

MATRIX OP - (MATRIX CONST I, r) 

Subtraktion zweier Matrizen. Die Anzahl der Reihen und Spalten muB gleich sein. 
FEHLER: 

MATRIX OP - : COLUMNS l <> COLUMNS r 

Die Anzahl der Spalten von '1' und 'r' sind nicht gleich. 

MATRIX OP - : ROWS I < > ROWS r 

Die Anzahl der Zeilen von T und 'r' sind nicht gleich. 
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MATRIX OP * (REAL CONST r. MATRIX CONST m) 

Multiplikation einer Matrix 'm' mit einem Skalar 'r*. Beispiel: 

MATRIX VAR a :: matrix (3, 4, 2.0); 

a := 3 * a; (♦ Alle Elemente haben den Wert '6,0* ♦) 

MATRIX OP * (MATRIX CONST m. REAL CONST r) 

Multiplikation einer Matrix 'm' mit einem Skalar 'r*. 

MATRIX OP * (MATRIX CONST i, r) 

Multiplikation zweier Matrizen. Die Anzahl der Spalten von T und die Anzahl der 
Zeilen von 'r' mussen gleich sein. Beispiel: 

MATRIX VAR a :: matrix (3, 4, 2.0), 

b :: matrix (4, 2, 3.0), 

produkt; 
produkt := a * b; 

(* Alle Elemente haben den Wert '24.0' *) 

FEHLER : 

MATRIX OP * : COLUMNS I < > ROWS r 

Die Anzahl der Spalten von T muB mit der Anzahl der Zeilen von 'r' 
ubereinstimmen. 

VECTOR OP * (VECTOR CONST v. MATRIX CONST m) 

Multiplikation des Vektors 'v' mit der Matrix 'm'. 

FEHLER : 

VECTOR OP * : LENGTH v <> ROWS m 

Die Anzahl der Elemente von 'v' stimmt nicht mit den Anzahl der Zeilen 
von 'm' Oberein. 

VECTOR OP * (MATRIX CONST m, VECTOR CONST v) 

Multiplikation der Matrix 'm' mit dem Vektor 'v*. 

FEHLER : 

VECTOR OP * : COLUMNS m <> LENGTH v 

Die Anzahl der Spalten von 'm' stimmt nicht mit der Anzahl der Ele- 

menten von 'v' Oberein. 



GMD 
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INT OP COLUMNS (MATRIX CONST m) 

Liefert die Anzahl der Spalten von 'm'. Beispiel: 

MATRIX VAR a :: matrix (3, 4), 

b : : matrix (7, 10); 
put (COLUMNS a); (* A ♦) 
put (COLUMNS b); (♦ 10 ♦) 



GET 

REAL OP DET (MATRIX CONST m) 

Es wird der Wert der Determinanten von 'm' geliefert. 

FEHLER : 

OP DET : no square matrix 

Die Matrix ist nicht quadratisch. d.h. ROWS mo COLUMNS m 



MATRIX OP INV (MATRIX CONST m) 

Liefert als Ergebnis die Inverse von 'm' (Achtung: starke Rundungsfehier mOglich). 
FEHLER: 

OP INV : no square matrix 

Die Matrix 'm' ist nicht quadratisch, 

d.h. ROWS mo COLUMNS m 

OP INV : singular matrix 

Die Matrix ist singulAr. 
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INT OP ROWS (MATRIX CONST m) 

Liefert die Anzahl der Zeilen von 'm*. Beispiel: 

MATRIX VAR a :: matrix (3, A), 
b :: matrix (7, 10); 

put (ROWS a); (♦3 ♦) 
put (ROWS b); (♦ 7 ♦) 



MATRIX OP TRANSP (MATRIX CONST m) 

Liefert als Ergebnis die transponierte Matrix 'm'. 
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PROC got (MATRIX VAR m. INT CONST rows, columns) 

Einiesen von Werten fQr die Matrix 'm' vom Terminal mit 'rows' - Zeilen und 
'columns' - Spalten. 



PROC put (MATRIX CONST m) 

Ausgat)e der Werte einer Matrix auf dem Terminal. 
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VECTOR PROC column (MATRIX CONST m. INT CONST i) 

Die 'i'-te Spalte von 'm' wird als VECTOR mit 'ROWS m' Elementen geliefert. 

Beispiei: 

MATRIX CONST a :: matrix (3, 4); 
VECTOR VAR b :: column (a, 1); 
(♦ 'b' hat drei Elemente mit den Werten '0.0' ♦) 

FEHLER: 

PROC column : subscript overflow 

Der Index 'i' liegt auBerhalb der Matrix 'm' (i > COLUMNS m). 

PROC column : subscript underflow 

Der Index *i' liegt auBerhalb der Matrix 'm' (i < 1). 

INITMATRDC PROC idn (INT CONST size) 

Erzeugen e'lner Einheitsmatrix vom Datentyp INITMATRIX. Beispiei: 
MATRIX VAR a :: idn (10); 

(♦ Erzeugt eine Matrix mit 10 x 10 Elementen, deren 
Werte '0.0' sind, mit der Ausnahme der Diagonalele- 
mente, die den Wert '1.0' haben.*) 

FEHLER : 

PROC idn : size < « 0 

Die angeforderte 'size' Anzahl Spalten Oder Zeilen muB > 0 sein. 
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INITMATRDC PFIOC matrix (INT CONST rows, columns) 

Erzeugen eines Datenobjekts vom Datentyp INITMATRIX mit 'rows' Zeilen und 
'columns' Spalten. Alte Elemente warden mit dam Wert '0.0' initialisiert. Beispiel: 

MATRIX CONST :: matrix (3, 3); 

FEHLER: 

PROC matrix : rows < » 0 

Die angeforderte Zeilenanzahl 'rows' muB > 0 sain. 

PROC matrix : columns < « 0 

Die angeforderte Spaltenanzahl 'columns' muB > 0 sain. 

INITMATRIX PROC matrix (INT CONST rows, columns. REAL CONST value) 

Erzeugen eines Datenobjekts vom Datentyp MATRIX mit 'rows' Zeilen und 'co- 
lumns' Spalten. Alle Elemente der erzeugten MATRIX warden mit dem Wert 
'value' initialisiert. Beispiel: 

MATRIX CONST :: matrix (3, 3, 3.14); 

FEHLER: 

PROC matrix : rows < » 0 

Die angeforderte Zeiienanzahl 'rows' muB > 0 sain. 
PROC matrix : columns < » 0 

Die angeforderte Spaltenanzahl 'columns' muB > 0 sein. 
VECTOR PROC row (MATRIX CONST m. INT CONST i) 

Die 'i'-te Reihe von 'm' wird als VECTOR mit 'COLUMNS m' Elementen gelie- 
fert. Beispiel: 

MATRIX CONST a :: matrix (3, 4); 
VECTOR VAR b :: row (a, 1); 

(♦ 'b' hat vier Elemente mit den Werten *0.0'*) 

FEHLER: 

PROC row : subscript overflow 

Der Index 'i' liegt auBerhalb der Matrix 'm' (i > ROWS m). 

PROC row : sut>script underflow 

Der Index 'i' liegt auBerhalb der Matrix 'm' (i < 1). 
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::|||||| 

REAL PROC sub (MATRIX CONST m. INT CONST row, column) 

Liefert den Wert eines Elementes von 'm', welches durch die Indizes 'row' und 
'column' bestlmmt wird. Beispiel: 

MATRIX VAR m :: matrix (5, 10, 1.0); 
put (sub (m, 3, 7)); 

FEHLER: 

PROC sub : row subscript overflow 

Der Index 'row' liegt auBerhalb von 'm' (row > ROWS m). 

PROC sub : row subscript underflow 

Der Index 'row' liegt auBerhalb von 'm' (row < 1). 

PROC sub : column subscript overflow 

Der Index 'column' liegt auBerhalb von 'm' (column > ROWS m). 

PROC sub : row subscript underflow 

Der Index 'column' liegt auBerhalb von 'm' (column < 1). 



9fm^ 

PROC transp (MATRIX VAR m) 

Transponieren der Matrix 'm', wobei kaum zus&tzlicher Speicherplatz benOtigt 
wird. 
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PROC replace column (MATRIX VAR m. INT CONST column index. VECTOR 
CONST column value) 

Ersetzung der durch 'column index' definierten Spalte in der MATRIX 'm' durch 
den VECTOR 'column value'. Beispiel: 

MATRIX VAR a :: matrix (3, 5, 1.0); 
VECTOR VAR b :: vector (3, 2.0); 

replace column (a, 2, b); 

(♦ Die zweite Spalte von 'a* wird durch die Werte von 
'b' ersetzt *) 

FEHLER: 

PROC replace column : LENGTH coiumnvalue < > ROWS m 

Die Anzahl der Zeilen der MATRIX 'm' stimmt nicht mit der Anzahl der 

Elenoente von 'coiumnvalue' uberein. 

PROC replace column : column subsaipt overflow 

Der Index 'columnindex' liegt auBerhalb von 'm' 

(columnindex > COLUMNS m). 

PROC sub : column subscript underflow 

Der Index 'columnindex' liegt auBerhalb von 'm' (columnindex < 1). 




PROC replaoe element (MATRIX VAR m . INT CONST row, column. 
REAL CONST VBhje) 

Ersetzung eines Elementes von 'm' in der 'row' -ten Zeile und 'column' -ten 
Spalte durch den Wert 'value'. Beispiel: 

MATRIX VAR a :: matrix (5, 5); 

replace element (1, 1, 3.14159); 

FEHLER: 

PROC replace element : row subscript overflow 

Der Index 'row' liegt auBerhalb von 'm' (row > ROWS m). 

PROC replace element : row sut3script underflow 

Der Index 'row' liegt auBerhalb von 'm' (row < 1). 

PROC replace element : column subscript overflow 

Der Index 'column' liegt auBerhalb von 'm' (column > COLUMNS m). 

PROC replace element : row subscript underflow 

Der Index 'column' liegt auBerhalb von 'm' (column < 1). 
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PROC replaoe row (MATRIX VAR m. INT CONST rowindex. 
VECTOR CONST rowvaJue) 

Ersetzung der Reihe 'rowindex* in der MATRIX 'm* durch den VECTOR 'rowvalue'. 
Belspiel: 

MATRIX VAR a :: matrix (3, 5, 1.0); 
VECTOR VAR b :: vector (5, 2.0); 

replace row (a, 2, b); 

(* Die 2. Reihe von 'a* wird durch Werte von 'b'ersetzt ♦) 

FEHLER: 

PROC replace row : LENGTH rowvalue < > COLUMNS m 

Die Anzahl der Spalten der MATRIX 'm' stimmt nicht mit der Anzahl der 

Elemente von 'rowvalue' uberein. 

PROC replaoe row : row subscript overflow 

Der Index 'rowindex' liegt auBerhalb von 'm' 

(rowindex > ROWS m). 

PROC sub : row subscript underflow 

Der Index 'rowindex' liegt auBerhalb von 'm' (rowindex < 1). 
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6.2 Programmanalyse 



Das Packet 'reporter' ermOglicht: 

a) Ablaufinformationen ("trace"); 

b) HAufigkeitszAhlung ("frequency count"); 

c) Programmunterbrechung bei NichterfQIIung einer Bedingung ("assertion"). 



fr Pi f w I l jf O i r i 

Das Programm befindet sich in der Datei 'reporter' und kann wie ubiich insertiert 
werden. Jedoch muB es mit 'check off' ubersetzt werden, damit keine Zeilennummern 
fur 'reporter' generiert werden. Dies ist notwendig, damit die Zeilennummern des zu 
testenden Programms nicht mit den Zeilennummern des Programms 'reporter' ver- 
wechselt werden kOnnen. Beispiel: 

check off; insert ("reporter'*); check on 

Mit dem Kommando 

generate reports (**testdatei**) 

werden die oben erwAhnten Prozeduraufrufe ('report') in das zu testende Programm, 
welches in der Datei 'testdatei' steht, geschrieben. Die Prozeduraufrufe werden nach 
jedem Prozedur-, Operator- oder Refinement > Kopf eingefUgt und erhaiten den 
entsprechenden Namen als Parameter. Diese Prozeduraufrufe werden gekennzeichnet. 
damit sie von der Prozedur 

eliminate reports ("testdatei*') 

automatisch wieder entfemt werden kdnnen. Beispiel (fQr die eingefOgten Prozedurauf- 
rufe): 



PROC beispiel (INT CONST mist): 
##report ("PROC beispiel") ;## 
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1st ein Programm mit 'generate reports' mit 'report' -Aufruf en versehen worden, kann 
es wie gewohnt ubersetzt werden. Wird das Programm vom ELAN - Compiler kor- 
rekt ubersetzt und dann gestartet. wird bei jedem Antreffen eines 'report' - Aufrufs der 
Parameter (Name der Prozedur, Operator Oder Refinement) in eine Datei, die 
TRACE -Datei geschrieben. Die TRACE -Datei wird beim Programmlauf automatisch 
von 'reporter' unter dem Namen 'TRACE' eingerichtet. 

Mit Hilfe dieser Datei kann der Programmablauf verfolgt werden. Es ist damit auch 
mOgiich festzustellen, wo eine "Endios-Rekursion" auftritt. Die Ablaufinformationen 
bestehen nur aus den Namen der angetroffenen Prozeduren und Refinements. Trotz- 
dem kOnnen die Anzahl der Informationen sehr umfangreich werden. Deshalb gibt es 
die MOglichkelt, die Erzeugung der Ablaufinformationen ab- bzw. wieder anzuschal- 
ten. Dazu gibt es die MOglichkeit, in das zu testende Programm die Prozeduren 

report on 
report off 

einzufOgen und das zu testende Programm mit diesen Prozeduraufrufen (emeut) zu 
ubersetzen. 




Zusatzlich zu den von 'generate reports' eingefugten 'report' -Aufrufen kann ein 
Benutzer eigene Aufrufe an geeigneten Stellen in ein Programm schreiben. Dafur 
werden weitere 'report' - Prozeduren zur Verfugung gestellt, die als ersten Parameter 
ein TEXT-Objekt (meist Name des Objekts Oder der Ausdruck selbst) und als zwei- 
ten ein INT/REAL/TEXT/ BOOL-Objekt (der zu uberprufende Wert Oder Ausdruck) 
enthalten. Beispiel: 



PROC beispiel (INT CONST mist): 

^#report ("beispiel") (* automatisch eingefuegte ♦) 
INT VAR mist : : . . . ; ... 

##report ("mist:", mist);## (♦ vom Benutzer per Hand einge- 

fuegt ♦) 
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Folgende 'report' - Routinen stehen zur VerfQgung, damit man sie 'von Hand' in ein 
zu testerKtos Programm einfOgen kann: 

PROC report on 

PROC report off 

PROC report (TEXT CONST message) 

PROC report (TEXT CONST message, INT CONST value) 

PROC report (TEXT CONST message, REAL CONST value) 

PROC report (TEXT CONST message, TEXT CONST value) 

PROC report (TEXT CONST message, BOOL CONST value) 

Wichtig: Hier - wie bei alien anderen 'von Hand eingefugten' Aufrufen - sollte 
ein Nutzer sich an die Konvention halten, diese in '##' einzuklammern. Mit 'eliminate 
reports' werden diese EinfOgungen automatisch entfernt. Sollen diese Aufrufe aber 
immer im Programm erhalten bleiben (jedoch nicht wirksam sein), sollten sie 

a) vor 'generate reports' - Aufruf mit jeweils '###' eingefaBt werden. Beispiel: 
### report ('...") ### 

So steht das 'report' - Statement in einem Kommentar. 'generate reports' wandelt 
'###' — > '####' um, so daB ein solches Statement wirksam wird. 'eliminate 
reports' wandelt ein '####' - - > '###' zurOck. 

b) nach 'generate reports' in '####' eingefaBt werden. 




Eine HAufigkeitszdhlung erhAlt man, in dem man in das zu testende Programm die 
Aufrufe 

count on 
count off 

einfugt. 1st die HftufigkeitszAhlung eingeschaltet, merkt sich 'reporter' die Anzahl der 
DurchlAufe fUr jede Prozedur bzw. Refinement. Mit der Prozedur 

generate counts Czu testende date!'') 

werden die vermerkten Hflufigkeiten in das zu testende Programm direkt eingefugt. 
Die HAufigkeiten werden wie oben beschrieben gekennzeichnet, so daB sie mit 'elimi- 
nate reports' entfernt werden k6nnen. 
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ZusAtzlich zu den oben erwfthnten MOglichkeiten bietet 'reporter' noch die Prozedur 
assert 

an. Diese Prozedur kann von einem Programmierer an einer Steile in das zu testende 
Programm eingefugt werden, an der bestimmte Bedingungen erfullt sein mussen. Die 
Prozedur 'assert' steht in zwei Formen zur VerfUgung: 

PROC assert (BOOL CONST zusicherung) 

PROC assert (TEXT CONST message , BOOL CONST zusicherung) 
1st der Wert von 'zusicherung' nicht TRUE, wird der Programmlauf abgebrochen. 



reporter - Kommandos 



PROC count on 

Schaltet die HAufigkeitszAhlung ein. 



PROC count off 

Schaltet die HAufigkeitszAhlung aus. 



PROC eUminatD reports fTEXT CONST daleO 

Entfemt gekennzeichnete 'report' - Aufrufe aus der Datei 'datei'. 



GMD 



6-39 



EUMEL - Benutzerhandbuch 




PROC ganerale reports (TEXT CONST dalBO 

FQgt 'report' - Aufruf8 in die Datei 'datei' ein und Icennzeichnet diese mit '##'. 



PROC report on 

Schaltet die Ablaufinformationen in die Datei 'TRACE' ein. 




PROC report off 

Schaltet die Ablaufinformationen wieder aus. 




PROC genaralB counts (TEXT CONST datei) 

Bringt die Hflufigkeitszfthlung (wie oft eine Prozedur oder Refinement durchlaufen 
wurde) in die Programmdatei 'datei'. Mit 'eliminate reports' werden diese wieder 
automatisch entfemt. 




PROC assert (TEXT CONST nmsage, BOOL CONST value) 

Schreibt 'message' und den Wert von 'value' in die TRACE -Datei. 1st 'value' 
FALSE, wird angefragt, ob das Programm fortgesetzt werden soil. 
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Referencer 



'referenoer' wird durch 

referencer ("ref datei", "referenz liste") 

aufgerufen. wobel die Datel 'referenz liste' nicht existieren dart, 'referenz liste' enthdlt 
nach Ablauf des Programms die gewQnschte Liste, die sogenannte Referenzliste. 

Achtung : 'referencer' arbeitet ausschlieBlich mit Namen und verarbeitet nur wenige 
syntaktische Konstrukte. Darum ist es nur eriaubt. ein PACKET auf einmal von 'refe- 
rencer' verarbelten zu lessen. Verarbeitet man mehrere PACKETS auf einmal, kann es 
gescfiehen. daB gleichnamige Objekte in unterschiedlichen Paketen zu Warnungen 
(vergl. die unten beschriebenen Oberprufungen) fuhren. 

In der Referenzliste sirKl 

- alle Objekte mit ifirem Namen (in der Reihenfolge ihres Auftretens im Programm) 

- alle Zeilennummern, in der das Objekt angesprochen wird 

- die Zeilennummern, in der das Objekt dekiariert wurde ('L' fOr ein lokales und 'G' 
fQr ein globales Objekt, 'R' fOr ein Refinement) 

verzeichnet. 

Die Referenzliste kann u.a. dazu dienen, zu kontrollieren, ob und wie (bzw. wo) ein 
Objekt angesprochen wird. Dies lohnt sich seibstverstdndlich nur bei etwas umfan- 
greicheren Programmen (bei 'Mini' -Programmen kann man dies sofort sehen). 



GMD 



6-41 



EUMEL - Benutzerhandbuch 



Bei der Erstellung der Referenzliste nimmt das Programm 'referencer' gleichzeitig 
einige Oberprufungen vor, die helfen kOnnen, ein Programm zu verbessern: 

1. Warnung bei mehrzeiligen Kommentaren. 

2. Uberdeckungsfehler. Wird ein Objekt global (auf PACKET - Ebene) und nochmals 
lokal in einer Prozedur deklariert. ist das globale Objekt nicht mehr ansprechbar. 
Oberdeckungen sind nach der gultigen Sprachdefinition z.Zt. noch eriaubt, warden 
aber bei einer Revision des Sprachstandards verboten sein. 

3. Mehrmaliges Einsetzen von Refinements. Wird ein Refinement mehrmals einge- 
setzt (das ist vOllig legal), sollte man uberlegen, ob sich dieses Refinement nicht 
zu einer Prozedur umgestalten IdBt. 

4. Nicht angewandte Refinements. Wird ein Refinement zwar deklariert, aber nicht 
"aufgerufen*. erfoigt eine Warnung. 

5. Nicht angesprochene Daten - Objekte. Warden Daten - Objekte zwar deklariert. 
aber im folgenden nicht angesprochen, wird eine Warnung ausgegeben. Hir.weis: 
Alle Objekte. die nur wenig angesprochen werden, also nur wenige Zeilennum- 
mern in der Referenzliste t)esitzen, sind verddchtig (Ausnahmen: importierte 
Prozeduren, LET -Objekte u.a.m.). 



referencer - Kommandos 



PBGC referencer (TEXT CONST check file, dump file) 

Oberpruft 'check file'. In 'dump file' steht nach AbschluB die Referenzliste. 
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6.3 Rechnen im Editor 



Das Prooramm TeCal ermOglicht einfache Rechnungen (Ahnlich wie mit einem Ta- 
schenrechner) unter der Benutzung des Editors. Gleichzeitig stehen dem Benutzer 
aber alio FAhigkeiten des Editors zur Verfugung. TeCal ermOglicht Rechnungen auf 
einfache Weise zu erstellen Oder Tabellenspalten zu berechnen. Zur Benutzung 
mussen TeCal' und TeCal Auskunft' insertiert werden. 

TeCal wird aus dem Editor heraus durch 'ESC t' Oder durch das Editor - Kommando 
tecal 

aktiviert. Dadurch wird in der untersten Zeile des BikJschirms eine informationszeiie 
aufgebaut, in der die (Zwischen-) Ergebnisse einer Rechnung zur Kontrolle fest- 
gehalten werden. 



Arbeitsweise 



Wenn TeCal insertiert ist, kann die Taschenrechnerfunktion jederzeit durch W^&ii -M 
aufgerufen werden. Aus der editierten Datei werden Werte mit £80 L gelesen, 
durch '.W6S>:^ ^ (bzw. -*,f) verknOpft und mit WS/^ S an die aktuelle Cursor- 
position geschrieben werden. 

Der von TeCal errechnete Wert wird durch ; liSD ; iM. derart ausgegeben, daB an der 
Stelle an der der Cursor steht die letzte Stelle vor dem Dezimalpunkt geschrieben 
wird. 

Die EIngabe von Klammern geschieht durch -WBO' ( BBO > . 

Durch die Hllfsfunktion WSXy ? lassen sich die TeCal Funktionen auflisten. 

Der Prozentoperator ;:i£Sj@ ^ eriaubt einfache Rechnungen der Form: 'zahl' fS80 ^ 
teSC H 680 » . 
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Derartige Folgen kOnnen naturlich mit der bekannten Editor - Lernfunktion auch ge- 
lemt warden, so daB sich z.B. die Mehrwertsteuerberechnung auf wenige Tasten 
reduziert. 

Spalten kOnnen summiert werden, indem auf der untersten Zahl einer Spalte V: 
eingegeben wird. Daraufhin werden alle darOberliegende Zahlen addiert. bis ein 
Zeichen auftritt, das nk:ht in einer Zahl auftritt (Leerzeichen stOren nichtl). 



55.00 









































TeCal Prozeduren 



evalualB (TEXT CONST zeile, INT CONST von) 

Ausdruck 'zeile' ab der Stelle 'von' berechnen. 



evBlualB (TEXT CONST zeile) 

Ausdruck 'zeile' ab Stelle 1 berechnen. 



kommaslellen (INT OOHSV slellen) 

Berechnungen auf 'stellen' Zahlen hinter dem Komma einstellen. 
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PROC merfce (INT CONST zahl) 

Integer 'zahl' im Merkregister abspeichern. 

PROC marfce (REAL CONST zahl) 
Real 'zahl' Im Merkregister ak)speichern. 



PROC piazentsalz (INT CONST zahl) 

Prozentsatz von 'zahl' Prozent einstellen. Der Wert wird automatisch konvertlert. 

PROC prozantsatz (REAL CONST zahl) 
Prozentsatz von 'zahl' Prozent einstellen. 



PROC tecal (HLE VAR f) 

Datei 'f. die mit 'sequential file' assoziiert ist, mit TeCal editieren. 

PROC iDcal (TEXT VAR datei) 

'datei' mit TeCal editieren. 

PROCtBcal 

Zuletzt editierte Datei mit TeCal editieren. 



PROC tecalauskuntt 

Auskunft zeigen. 

PROC tecalauskunn (TEXT CONST zeichen) 
Auskunft zu 'zeichen' zeigen. 
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ELAN - Syntaxdiagramme 

Die ELAN - Syntaxdiagramme wurden innerhalb des Forschungsprojekts Schulspracne 
im Fachgebiet Softwaretechnik. Institut fur angewandte Informatik an der Technischen 
Universitat Berlin erstellt. 

Die Reproduktion dieser Syntaxdiagramme ist fur jeden Zweck, nicht aber auszugs- 
weise, mit Angabe der Herkunft ohne Formalit&ten gestattet. 
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proper packet 



HO 



main packet 



proper packet 



- ^PACKET^ * j name j ■ ^DEFINESJ - 



type name 



opname 



■<I> 



^ declaration 



^^ndpacket)- 





name 
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wain packet 



uni t 



data object declaration — • 



_^ shorthand declaration 



ref I ncment 



proc declaration 



operator declaration 



type declaration * — 



KM 



data object declaration 



^ shorthand declaration 
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declaration 



type declaration 



proc declaration 



operator declaration 



shorthand declaration 



data object declaration 



proc declaration 
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operator parameter list 



— ^^TV* type -p^CONSr)- 




VAR 



virtual parameter! ist 



• type -W CONSt )- 



An hang A 



virtual parameterllst 




routine body 



section 



shorthand declaration 



refinement 
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type declaration 



■On 



type name 



h-o- 



type 



shorthand declaration 



number name 



HO- 



real name 



HO 



bool name 



HO 



O- 



number name 



number 



real name 



text name 



text 



type name 



HO- 



bool name 



bool 



type 
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type 
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refinement 





name 






( 





section 




) — " 





section 



unit 



data object declaration 
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data object declaration 



type 



^ — -(const)- 



-GH 



primary 



primary 
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unit 




I "{ENDSELECT 




A - 12 
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primary 



■<i> 



primary 



primary 



primary 



MI>- 



primary 



■o- 



primary 



primary 



primary 



primary 



type :( 



(CONCr) * primary 



denotation 
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denotation 



number 



number name 



real 



real name 



text 



text name 



bool 



boot name 
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